在闪亮的应用程序中更新数据而不刷新整个应用程序

Question

我有一个使用 R shiny 库构建的实时数据可视化应用程序。我使用reactivePoll 函数从文件中定期重新加载数据。我不喜欢的是，每当数据重新加载时，整个应用程序都会刷新。

因此，例如，如果我有带有选择的DT 表输出，并且我使用此选择input$table_rows_selected，它会在数据重新加载时重置为NULL，这根本不是用户友好的。

是否可以在不中断用户的情况下更改数据输出？

更新。

这可以通过任何其他用于显示表格的包来实现 - googleVis 或其他吗？

工作示例。

library(shiny)
library(DT)

runApp(shinyApp(
  ui = fluidPage(dataTableOutput('table')),
  server = function(input, output, session) {
    pollData <- reactivePoll(4000, session,
                             checkFunc = function(){ Sys.time() },
                             valueFunc = function(){ data.frame(id = sample(letters[1:3]), a = runif(3), b = runif(3), c = runif(3)) })
    output$table <- renderDataTable({pollData()})
    proxy <- dataTableProxy('table')
    observeEvent(pollData(), {
      selectRows(proxy, input$table_rows_selected)
    })}
))

我从@NicE 答案中获取了这个示例并添加了 id 列。关键是@NicE 的答案是可以的，如果在该行由行号标识时需要选择某行。

现在假设当该行由某个 id 值标识时，我需要选择该行。也就是说，如果我选择 id 等于 b 的行，那么下次重新加载数据时，我希望选择具有相同 id 值的行。

Answer 1

在pollData 更新后创建数据表时，您可以使用dataTableProxy 选择行。 这是一个示例，数据框每 4 秒刷新一次：

library(shiny)
library(DT)

ui <- fluidPage(dataTableOutput("table"))

server <- function(input,output,session){
        values <- reactiveValues()
        pollData <- reactivePoll(4000, session,
                                 checkFunc=function(){
                                         Sys.time()
                                 },
                                 valueFunc=function(){                             
                                         data.frame(a=sample(c("a","b","c"),3),b=runif(3),c=runif(3),stringsAsFactors = F)
                                 })

        output$table <- renderDataTable({ pollData()})

        observe({
                values$selected <- pollData()$a[input$table_rows_selected]
        })

        proxy = dataTableProxy('table')
        observeEvent(pollData(),{
                selectRows(proxy, which(pollData()$a %in% values$selected))
        })
}

shinyApp(ui,server)

更新：在上面的代码中，当数据发生变化时，选择的行是与之前具有相同第一列的行。