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

6ss1mwsb 于 2023-09-27 发布在其他

关注(0)|答案(1)|浏览(83)

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

library(DT)
dt = datatable(iris)

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

然而，它不起作用。我的datatable比datatable（iris）更复杂，但这应该能让你对我试图实现的目标有一个概念。有办法做到吗？谢谢

来源：https://stackoverflow.com/questions/77090786/add-options-to-r-datable-after-the-datatable-is-created

1条答案

按热度按时间

kr98yfug1#

像这样？

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)

赞(0）回复(0）举报 2023-09-27

我来回答

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

1条答案

相关问题

热门标签

最新问答