如何在RStudio中为大型Shiny应用保留代码折叠状态？

RStudio自带的代码折叠快捷键如下：

• 折叠当前区域：Alt+L
• 展开当前区域：Shift+Alt+L
• 折叠所有区域：Alt+O
• 展开所有区域：Shift+Alt+O

但在开发Shiny应用时，这些快捷键实用性有限：响应式表达式都嵌套在server(){}块内，快捷键会直接对整个server块进行折叠/展开，无法单独用快捷键折叠server块内部的响应式表达式，只能依赖鼠标操作——这在大型Shiny应用中会非常繁琐。

举个最简示例：

server <- function(input, output) {
  dataInput <- reactive({
    getSymbols(input$symb)
  })
  dataProcess <- reactive({
    process(dataInput())
  })
}

使用Alt+L只能整体折叠/展开整个server块，当server块处于展开状态时，内部的reactive函数无法通过快捷键折叠，必须手动点击折叠按钮。

除此之外，还有一个痛点：即使通过鼠标完成了代码折叠，保存并重新打开.R文件后，所有折叠状态都会丢失——官方文档明确说明：

'all foldable regions are shown expanded by default when a file is closed and re-opened'.

目前Stack Overflow上已有两个相关的未解决问题：一个是询问跨设备打开R文件时如何保持函数折叠状态，另一个是关于RStudio永久代码折叠的需求，均未得到彻底解决。

我尝试过调整布局、搭配快捷键组合（比如折叠前用Ctrl+A自动格式化代码），但每次开启新会话仍需要大量鼠标操作来重新整理代码折叠状态。

请问有没有办法保留代码折叠状态，优化工作流程并减少代码结构管理的时间？

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