如何在 RShiny 应用服务器反应、渲染等中自动折叠代码

如何解决如何在 RShiny 应用服务器反应、渲染等中自动折叠代码

我正在使用一个非常大的 RShiny 应用程序，并希望利用代码折叠来组织此应用程序中的 server.R 文件。但是，当我使用代码折叠热键时，它不会折叠服务器中定义的各种元素（reactive、render 等元素）。

我希望能够接受这个

# observe some things
observe({
  query <- parseQueryString(session$clientData$url_search)
  if (!is.null(query[['tab']])) {
    updateTabItems(session,"sidebarMenu",selected = query[['tab']])
  }
  if (!is.null(query[['player']])) {
    updateSelectInput(session,"profile",selected = query[['player']])
  }
})


# Lots of "reactive" data fetching functions 
league_stats <- reactive({
  get1 <- fetch('yada')  
  return(get1)
})

# another reactive
shooting <- reactive({
  get1$SHORT_MR_MADE<-sum(get1$short_mr_fgm,na.rm=T)
  ...
  ...
)}

只需点击代码折叠热键即可将其折叠成这个（或类似的东西）。

# observe some things
observe({--})

# Lots of "reactive" data fetching functions 
league_stats <- reactive({--})

# another reactive
shooting <- reactive({--})

这可能与 R / RStudio 有关吗？我想避免使用函数上方的 4 个 # 符号 #### 进行代码折叠，因为这也会隐藏 shooting <- reactive({--}) 字符串，但是我仍然希望显示（并且只是隐藏代码在里面）。

由于函数崩溃，我经常将代码包装在函数中，但是我不能在函数中包装 RShiny 反应性元素（或者，我不确定如何），因为这似乎破坏了应用程序。

解决方法

Shiny 反应式的行为与其他函数一样，但您需要注意将 input、session 或其他 reactives（作为 function，而不是作为值）传递给它们) 他们需要。

举个例子：

library(shiny)

generateUI <- function() {fluidPage(
  actionButton("do","Click Me"),textOutput('counter')
)}

ui <- generateUI()

myobserver <- function(input,counter) {
  observeEvent(input$do,{
    cat('Clicked \n')
    counter(counter()+1)
  })
}

myformater <- function(counter) {
  renderText(paste('count is',counter()))
}

server <- function(input,output,session) {
  counter <- reactiveVal(0)
  myobserver(input,counter)
  output$counter <- myformater(counter)
}

shinyApp(ui,server)

折叠代码：

,

另一种不将它们创建为函数的方法是在每个代码块上方放置一个标识符：

filename: "name of file from s3",counter: key,bitrate: value

然后您将能够折叠两个标识符之间的代码段以进行查看，如下所示：