Question

亲爱的R Shiny社区，

我正在尝试为Shiny app创建书签状态，我用DT包渲染表格。例如，在下面粘贴的应用程序中，我想在搜索字段中键入一些文本，该文本子集数据和书签状态，即获取我可以共享的URL。另一个用户可以使用URL并查看表的相同子集，而无需再次在搜索字段中键入文本。使用下面的代码，我希望看到带有选项1代码的“书签”按钮或带有选项2的动态URL，但遗憾的是它无法按预期工作。有没有人知道在使用DT渲染表时如何制作书签状态？

以下是可重现的代码：

选项1

library(shiny)

ui <- function(request) {
    fluidPage(DT::dataTableOutput('tbl'))
}

server = function(input, output) {
    output$tbl = DT::renderDataTable(
        iris, options = list(lengthChange = FALSE)
    )
}

shinyApp(ui, server, enableBookmarking = "url")

选项2

library(shiny)

ui <- function(request) {
    fluidPage(DT::dataTableOutput('tbl'))
}

server = function(input, output) {
    observe({
    output$tbl = DT::renderDataTable(
        iris, options = list(lengthChange = FALSE)
    )
    })
    onBookmarked(function(url) {
        updateQueryString(url)
    })

}

shinyApp(ui, server, enableBookmarking = "url")

非常感谢你的时间和帮助！

闪亮的dt书签状态

0 个答案: