Cập nhật dữ liệu trong ứng dụng sáng bóng mà không cần làm mới toàn bộ ứng dụng

Question

Tôi có một ứng dụng để tạo dữ liệu trực quan hóa thời gian thực với thư viện R shiny. Tôi thực hiện tải lại dữ liệu định kỳ từ tệp bằng chức năng reactivePoll. Những gì tôi không thích về điều này là bất cứ khi nào dữ liệu tải lại toàn bộ ứng dụng làm mới.

Vì vậy, ví dụ nếu tôi có DT đầu ra bảng có lựa chọn và tôi sử dụng lựa chọn này input$table_rows_selected nó sẽ đặt lại thành NULL bất cứ khi nào tải lại dữ liệu không thân thiện với người dùng.

Tổng thể có thể thay đổi đầu ra dữ liệu mà không làm gián đoạn người dùng không?

CẬP NHẬT.

Điều này có thể đạt được với bất kỳ gói nào khác để hiển thị bảng - googleVis hoặc khác không?

Ví dụ làm việc.

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

Tôi đã lấy ví dụ này từ câu trả lời @NicE và cột id được thêm vào. Vấn đề là câu trả lời @NicE là OK nếu cần một hàng nhất định khi hàng đó được xác định bằng số hàng.

Giả sử tôi cần một hàng để được chọn khi hàng đó được xác định bởi một số giá trị id. Đó là nếu tôi chọn một hàng có id bằng b, thì lần tải lại dữ liệu tiếp theo tôi muốn hàng được chọn có cùng giá trị id.

Answer 1

Bạn có thể sử dụng dataTableProxy để chọn các hàng khi dữ liệu được tạo sau khi cập nhật pollData. Dưới đây là một ví dụ, các dataframe được làm mới mỗi 4 giây:

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) 

Cập nhật: trên đoạn mã trên, khi thay đổi dữ liệu, các hàng được lựa chọn là những người có cùng cột đầu tiên làm trước đó.