在R Shiny应用程序中,我正在尝试使用DT::replaceData
来更新数据以保留当前状态(例如过滤(以显示。虽然它适用于一个简单的闪亮应用程序,但当我模块化应用程序并从callModule
调用时,它就不能了。
下面的示例中,在顶部框中选择物种应该会触发数据替换以如下所示。
这是一个工作示例:
library(shiny)
ui <- fluidPage(
selectInput('species', 'Choose Species',
choices=unique(iris$Species),
selected=unique(iris$Species), multiple=TRUE),
DT::dataTableOutput('dt')
)
server <- function(input, output, session) {
output$dt <- DT::renderDataTable({
DT::datatable(
iris, filter='top',
options = list(autoWidth=TRUE)
)
})
observeEvent(is.null(input$species), {
DT::replaceData(
DT::dataTableProxy('dt'),
dplyr::filter(iris, Species %in% input$species)
)
})
}
shinyApp(ui, server)
这是不起作用的模块化版本:
library(shiny)
ui <- function(id) {
ns <- NS(id)
tagList(
selectInput(ns('species'), 'Choose Species',
choices=unique(iris$Species),
selected=unique(iris$Species), multiple=TRUE),
DT::dataTableOutput(ns('dt'))
)
}
server <- function(input, output, session) {
output$dt <- DT::renderDataTable({
DT::datatable(
iris, filter='top',
options = list(autoWidth=TRUE)
)
})
observeEvent(is.null(input$species), {
print(input$species)
DT::replaceData(
DT::dataTableProxy('dt'),
dplyr::filter(iris, Species %in% input$species)
)
})
}
mainUi <- fluidPage(ui('app'))
mainSrv <- function(input, output, session) {
callModule(server, 'app')
}
shinyApp(mainUi, mainSrv)
我想知道为什么第二个示例不起作用,以及如果可能的话如何解决它。
更新
解决!
自 DT v0.3 以来已修复此问题。请参阅: https://github.com/rstudio/DT/issues/357
自 v3.0 以来已解决该问题。参考: https://github.com/rstudio/DT/issues/357
因此,只需通过以下方式解决:
install.packages('DT')
packageVersion('DT')
# [1] ‘0.4’