R Markdown html_document移除单块Code按钮保留全局代码折叠方法

可以实现需求，全程不需要在Rmd文档正文内添加任何脚本、样式或特殊代码块配置，操作步骤如下：

1. 新建外部脚本文件 #

在你的Rmd文件同级目录下新建一个名为hide_single_code_btn.js的文本文件，写入以下代码：

document.addEventListener("DOMContentLoaded", function() {
  // 注入自定义样式，移除单块按钮后消除多余空行
  const customStyle = document.createElement("style");
  customStyle.textContent = `
    .sourceCode pre {
      margin-top: 0 !important;
    }
    /* 精准选中代码块内的单块折叠按钮，不影响顶部全局按钮 */
    .sourceCode .code-folding-btn {
      display: none !important;
    }
  `;
  document.head.appendChild(customStyle);

  // 移除所有单代码块对应的Code按钮
  document.querySelectorAll(".sourceCode .code-folding-btn").forEach(btn => btn.remove());
});

2. 关联脚本到输出文档 #

两种方式可选，都不需要修改Rmd正文内容：

• 方式一：修改YAML头部的输出配置（仅调整output段参数，不碰正文）

  ---                     
  title: "Test"           
  date: '`r Sys.Date()`'  
  output:                 
   html_document:         
      code_download: true 
      code_folding: 'hide'
      includes:
        after_body: hide_single_code_btn.js
  ---
  

• 方式二：渲染时传参，完全不改动原Rmd文件的任何内容

  rmarkdown::render(
    input = "你的文档路径.Rmd",
    output_options = list(
      code_download = TRUE,
      code_folding = "hide",
      includes = list(after_body = "hide_single_code_btn.js")
    )
  )
  

效果验证 #

• 所有代码块旁单独的Code按钮被完全清除，原有按钮占位导致的多余空行被样式修复，排版紧凑无冗余
• 文档顶部的Show/Hide All Code按钮功能完全保留，点击可正常全局切换所有代码块的显示/隐藏状态
• 代码下载、代码块运行等原有功能不受任何影响

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