如何在RStudio中实现.R文件跨设备打开时折叠函数保持折叠状态

注意：RStudio默认的手动折叠状态仅存储在你本地的项目缓存目录中，不会随.R文件本身传播，因此必须使用RStudio原生支持的持久化折叠注释标记实现需求。

操作步骤 #

• 第一步：为需要折叠的代码段添加专属标记
  RStudio可识别的折叠标记格式为：代码段开头写# ---- 自定义段名称 ----，代码段末尾写# ----即可，标记中的短横至少需要4个，段名称可根据代码功能自定义，示例如下：

  # ---- 缺失值填充函数 ----
  fill_na_value <- function(input_df, fill_col, default_val = 0) {
    input_df[[fill_col]] <- ifelse(is.na(input_df[[fill_col]]), default_val, input_df[[fill_col]])
    return(input_df)
  }
  # ----
  

• 第二步：设置RStudio自动识别折叠标记
  你和收件人均只需完成一次全局设置，后续所有带折叠标记的.R文件打开都会自动折叠对应代码段：
  1. 打开RStudio设置页：Windows/Linux系统选顶部菜单栏 工具 -> 全局选项，Mac系统选顶部菜单栏 RStudio -> 设置
  2. 左侧导航栏选择代码分类，切换到显示标签页
  3. 找到代码折叠选项组，勾选默认折叠所有R代码段
  4. 点击确定保存设置即可
• 第三步：保存文件发送
  完成标记编写的.R文件直接保存后通过邮件发送即可，收件人完成上述设置后打开文件，所有标记段会默认保持折叠状态，点击代码行号旁的展开箭头即可查看内部代码。

补充说明 #

• 若收件人不想全局开启默认折叠，也可在打开文件后，点击顶部菜单栏 代码 -> 折叠 -> 折叠所有段，一键折叠所有带标记的代码块。
• 折叠标记适配所有R代码场景，除函数外，常量定义、绘图逻辑、批量计算逻辑等任意代码块都可以用该标记封装。

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