Rmarkdown HTML输出代码折叠优化：缩减文本与输出间距

下面是几个实用的优化方案，按需选择：

方案1：自定义CSS全局调整（推荐） #

直接在文档开头添加一段CSS代码块，修改折叠按钮位置和代码块间距，让按钮和描述文本同行，同时压缩空白：

/* 让折叠按钮与描述文本对齐在同一行 */
.code-folding-btn {
  float: right;
  margin-top: -2em;
  margin-right: 0.5em;
}

/* 压缩代码块上下的默认间距 */
div.sourceCode {
  margin-top: 0.2em !important;
  margin-bottom: 0.2em !important;
}

/* 折叠状态下彻底隐藏代码块的占位空白 */
.folded .sourceCode {
  display: none;
}

使用方法：把这段代码放在R Markdown文档最开头的{css, echo=FALSE}代码块里，无需修改YAML的code_folding设置，全局生效。

方案2：手动用HTML标签实现自定义折叠 #

放弃默认的code_folding，改用HTML的<details>标签手动控制折叠区域，完全自定义位置和样式，彻底解决间距问题：

比如你可以这样写：

接下来我们生成模拟数据

（点击查看代码）

data <- data.frame(x = 1:10, y = rnorm(10))
plot(data$x, data$y)

这种方式的折叠按钮（summary文本）可以直接嵌入描述段落中，没有任何多余空白，灵活性拉满，但需要逐个代码块手动设置。

方案3：轻量CSS微调（最小改动） #

如果只想微调默认折叠的间距，不想大改样式，用这段极简CSS：

/* 减小折叠代码块的上下边距 */
div.sourceCode {
  margin: 0.3em 0 !important;
}

/* 把折叠按钮往上提，避免占用额外行 */
button.code-folding-btn {
  position: relative;
  top: -1.5em;
}

同样放在{css, echo=FALSE}代码块里，快速缩小空白，保留默认折叠功能。

内容的提问来源于stack exchange，提问作者goingdeep