创建数据表后向 R 数据表添加选项

Question

我有一个 R 脚本，它获取数据帧，执行一些操作，并最终将数据帧保存为数据表，以便在我闪亮的应用程序中进行最终可视化。 根据一些用户输入，我需要向刚刚创建的数据表添加一些“选项”。给你一个具体的例子，这就是我想做的：

library(DT)
dt = datatable(iris)

# Add the options parameter using %>% operator
dt <- dt %>% 
  datatable(options = list(order = list(list(1, "desc"))))

但是，这不起作用。我的数据表比数据表（iris）更复杂，但这应该让您了解我想要实现的目标。有办法做到吗？谢谢

Answer 1

像这样吗？

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("dtable"),
  checkboxInput("option", "Option")
)

server <- function(input, output, session) {
  
  opts <- reactiveVal(list())
  
  observeEvent(input[["option"]], {
    req(input[["option"]])
    opts(list(order = list(list(1, "desc"))))
  })
  
  output[["dtable"]] <- renderDT({
    datatable(iris, options = opts())
  })
  
}

shinyApp(ui, server)