我可以合并连续的代码块的代码，而不会在rmarkDown html_document中回荡

Question

写入rmarkDown html_document我经常有连续的代码块，但没有输出。 当这种情况发生时，就像当

• eval = false
• 结果=“隐藏”

时，我希望代码块“合并”。 我知道ref.label =“”，它可以通过它来完成，但它会使块标签变得非常复杂/重。

是否有一些JavaScript，CSS，选项魔术可以帮助我实现自己想要的东西？

示例：

---                                               
title: "Test"                                     
date: '`r Sys.Date()`'                            
output: html_document                             
---                                               
                                                  
# Title 1                                         
                                                  
Some text                                         
                                                  
```{r, echo = TRUE, eval = FALSE}                 
1 + 1 # eval = FALSE so no output                 
```                                               
                                                  
```{r, echo = TRUE, results = "hide"}             
1 + 2 # results hidden so no output               
```                                               
                                                  
```{r, echo = TRUE}                               
1 + 3                                             
```                                               
                                                  
Some other text                                   
                                                  
```{r, echo = TRUE, eval = FALSE}                 
1 + 4 # eval = FALSE so no output but text follows
```                                               
                                                  
Some other text                                   
                                                  
```{r, echo = TRUE}                               
1 + 4                                             
``` 

输出

Answer 1

一种方法是使用 lua filter 合并代码块：

---
title: "Test"
date: '`r Sys.Date()`'
output:
  html_document:
    pandoc_args:
      - '--lua-filter=merge-code-blocks.lua'
---

在哪里： Merge-code-blocks.lua包含

local code_block_sep = '\n\n'
function Blocks (blocks)
  for i = #blocks, 2, -1 do -- start at end of list
    -- Both blocks must be code blocks and share the same primary class
    if blocks[i - 1].t == 'CodeBlock' and
       blocks[i].t == 'CodeBlock' and
       blocks[i - 1].classes[1] == blocks[i].classes[1] then
      blocks[i - 1].text = blocks[i - 1].text ..
        code_block_sep ..
        blocks[i].text
      blocks:remove(i)
    end
  end
  return blocks
end

结果文档：

set code_block_sep ='\ n'如果您不喜欢将块分开的空白线。

这种方法的优点是它不是针对HTML的特定，即使使用PDF或单词输出也将继续使用。

Answer 2

如果您需要的只是默认的HTML输出，那么您可以使用小型CSS攻击来获取所需的东西。它可以直接移动任何代码块，然后再向上移动1EM，卸下顶部边框并防止弯道被舍入。这给出了被合并的细胞的视觉效果。

必要的片段可以放置在文档中的任何地方。

<style>
  pre.r + pre.r {
    margin-top: -1em;
    border-top-left-radius: 0;
    border-top-right-radius: 0;
    border-top: none;
  }
</style>