r - 如何将“rhandsontable”输出保存在数据框中？

Question

我想在输出中显示我现有的数据框。除了这些列之外，我还需要一些可以记录用户输入的列。我可以通过 rHandsontable 实现这一点。但是，我无法将编辑/修改的表保存在数据框中。

以下是正在使用的代码：

    library(shiny)
library(rhandsontable)

mydf<-read.csv('C:/Bhargav/GM/01_Projects/02_Toolkit/04_Validation/Sample_part_number_4.csv')


ui<-fluidPage(
  rHandsontableOutput("df"),
  actionButton("save", "Save table")

)

server<-function(input,output) {

  values <- reactiveValues()

  output$df<-renderRHandsontable({

    DF = data.frame(mydf$PART_NBR,
                    Flag = "Valid/Invalid",
                    reason = "Enter the reason"
    )
    charac = c("Valid","Invalid")
    rhandsontable(DF,width=600, height = 400) %>% hot_col(col = "Flag", type = "dropdown",source=charac) %>% hot_col(col = "reason", allowInvalid = TRUE)

  })


}

runApp(list(ui=ui, server=server))