Aktualisieren Sie Daten in glänzenden Anwendung, ohne die gesamte Anwendung zu aktualisieren

Question

Ich habe eine Anwendung für die Echtzeit-Datenvisualisierung mit R shiny Bibliothek erstellt. Ich mache periodische Daten neu laden von Datei mit reactivePoll Funktion. Was ich nicht mag ist, dass wenn die Daten neu geladen werden, die ganze Anwendung aktualisiert wird.

So zum Beispiel, wenn ich DT Tabellenausgabe mit Auswahl und ich verwende diese Auswahl input$table_rows_selected es NULL zurücksetzt, wenn Daten neu geladen, die überhaupt nicht benutzerfreundlich ist.

Ist es insgesamt möglich, die Datenausgabe zu ändern, ohne den Benutzer zu unterbrechen?

UPDATE.

Kann dies mit jedem anderen Paket für die Anzeige von Tabellen erreicht werden - googleVis oder andere?

Arbeitsbeispiel.

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) 
    })} 
)) 

Ich habe dieses Beispiel aus @NicE Antwort entnommen und ID-Spalte. Der Punkt ist, dass @NicE-Antwort OK ist, wenn eine bestimmte Zeile ausgewählt werden muss, wenn diese Zeile durch die Zeilennummer identifiziert wird.

Angenommen, ich brauche eine Zeile, die ausgewählt wird, wenn diese Zeile durch einen ID-Wert identifiziert wird. Das heißt, wenn ich eine Zeile mit id gleich b auswähle, möchte ich beim nächsten Neuladen von Daten die Zeile mit demselben ID-Wert auswählen.

Answer 1

Sie können dataTableProxy verwenden, um Zeilen auszuwählen, wenn das Datenobjekt nach einem pollData-Update erstellt wird. Hier ist ein Beispiel, die Datenrahmen alle 4 Sekunden aktualisiert wird:

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) 

Update: auf dem obigen Code, wenn sich die Daten ändern, die ausgewählten Zeilen diejenigen sind, die die gleiche erste Spalte wie zuvor haben.