如何在数据框中保存'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))