当我将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))