Verileri tüm uygulama yenilemeden parlak bir uygulama olarak güncelleştirin

Question

R shiny kitaplığı ile gerçek zamanlı veri görselleştirme oluşturmak için bir uygulama var. Periyodik veri reactivePoll işlevini kullanarak dosyadan yeniden yüklerim. Bu konuda sevmediğim şey, veri yeniden yüklendiğinde tüm uygulamanın yenilenmesidir.

Yani örneğin ben seçimle DT tablo çıktı varsa ve ben NULL için bu sıfırlar bu seçimi input$table_rows_selected her kullandığınızda tüm kullanıcı dostu değildir veri reloads.

Kullanıcı verisini kesintiye uğratmadan veri çıkışını değiştirmek genel olarak mümkün mü?

UPDATE.

Bu, tabloları görüntülemek için başka herhangi bir paket ile elde edilebilir - googleVis veya diğer?

Çalışma örneği.

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

Ben @NicE cevabını bu örneği alınmış ve kimliği sütunu ekledik. Bu satırın satır numarasıyla tanımlandığında belirli bir sıranın seçilmesi gerekiyorsa, @NicE cevabının OK olması önemlidir.

Şimdi, bu satırın bir kimlik değeriyle tanımlanması durumunda seçilecek bir satıra ihtiyacım var. Diğer bir deyişle, eşit b ile bir satır seçtiğimde, bir sonraki veri yeniden yüklendiğinde, satırın aynı kimlik değeriyle seçilmesini istiyorum.

Answer 1

Bir pollData güncelleştirmesinden sonra oluşturulabilir olduğunda satır seçmek için dataTableProxy kullanabilirsiniz. Burada dataframe 4 saniyede bir yenilenir, bir örnek verilmiştir:

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) 

güncelle: Veri değişiklikleri, seçilen satır, daha önce olduğu gibi aynı birinci sütuna sahip olanlar, yukarıda kod ile.