Теперь я создал таблицу с помощью функции rhandontable, как я могу обновить таблицу на кнопке отправки?

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

Насколько я понимаю, вы хотите получить доступ к вводу вашего ременданта внутри вашего сервера при нажатии кнопки отправки. В приведенном ниже примере я изменил свой код, чтобы отобразить обновленный файл в формате tableoutput.

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) 

Надеюсь, это поможет!