我已經創建了一個使用rhandsontable函數的表，現在如何更新提交按鈕上的表？

Question

ui <- fluidPage(

    # Application title 
# titlePanel("Old Faithful Geyser Data"), 

    mainPanel(
    rHandsontableOutput('table'), 
    br(), 
    submitButton("Apply changes"), 
    verbatimTextOutput('selected') 
    ) 

) 

server <- function(input, output) { 
     data1 = read.csv("SampleCSVFile_2kb.csv", TRUE,",") 


     output$table = renderRHandsontable(rhandsontable(data1, width = 1000, height = 250)) 

     output$selected=renderPrint({ 
     cat('\nChanged Cell Old Value:',input$table$changes$changes[[1]][[3]]) 
     cat('\nChanged Cell New Value:',input$table$changes$changes[[1]][[4]]) 
     }) 
    } 

shinyApp(ui = ui, server = server) 

Answer 1

據我所知，當你按下提交按鈕時，你想訪問你服務器內的rhandsontable輸入。 在下面的示例中，我修改了代碼，以便在tableoutput中顯示更新的rhandsontable。

library(shiny) 
library(rhandsontable) 

ui <- fluidPage(

    # Application title # titlePanel("Old Faithful Geyser Data"), 

    mainPanel(
    rHandsontableOutput('table'), 
    br(), 
    submitButton("Apply changes"), 
    verbatimTextOutput('selected'), 
    ##The updated table output 
    rHandsontableOutput('tableoutput') 
) 
) 


server <- function(input, output) { 
    data1 = read.csv("SampleCSVFile_2kb.csv", TRUE,",") 


    output$table = renderRHandsontable(rhandsontable(data1, width = 1000, height = 250)) 

    output$selected=renderPrint({ 
    cat('\nChanged Cell Old Value:',input$table$changes$changes[[1]][[3]]) 
    cat('\nChanged Cell New Value:',input$table$changes$changes[[1]][[4]]) 
    }) 

    observe(
    if(!is.null(input$table)){ 
     output$tableoutput = renderRHandsontable(rhandsontable(hot_to_r(input$table), width = 1000, height = 250)) 


    } 
    ) 

} 


shinyApp(ui = ui, server = server) 

希望它有幫助！