当我将 ui.R 和 Server.R 文件分开时，如何在 Shiny 中传递 stateSave？

Question

我想在闪亮的服务器中传递 saveState 参数。

我从https://github.com/rstudio/DT/issues/76找到了以下代码

DTApp = function(data, ..., options = list()) {
library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    fluidRow(
     verbatimTextOutput('foo'),
     DT::dataTableOutput('tbl')
    )
  ),
  server = function(input, output, session) {
     options$ajax = list(url = dataTableAjax(session, data))
     # create a widget using an Ajax URL created above
     widget = datatable(data, server = TRUE, ..., options = options)
     output$tbl = DT::renderDataTable(widget)
     output$foo = renderPrint(str(input$tbl_state))
  }
 )
}

DTApp(iris, options = list(stateSave = TRUE))

正如我们在这里看到的，他们在 DTApp 中传递了 stateSave。但是，我正在单独构建 ui 和服务器。 Rstudio 正在为我构建应用程序。

我不知道在哪里传递 stateSave 参数。我相信它应该进入服务器，但是，我不确定。

Answer 1

stateSave 只是datatable 的一个选项。所以更改以下行

 widget = datatable(data, server = TRUE, ..., options = options)

到

 widget = datatable(data, server = TRUE, ..., options = list(stateSave = TRUE))