Shiny 使数据可从持久本地存储中编辑

我正在使用第1节中提到的本地持久数据创建一个闪亮的应用程序。本地文件系统（本地）

我的问题是，是否可以使数据可编辑并从本地驱动器重新加载

从输入中聚合数据

任何帮助都会非常感激

formData <- reactive({
    #data <- sapply(fieldsMandatory, function(x) input[[x]])
    formdata <- c("Associate Name" = input$aname,"Client Name" = input$cname,"Project"=input$project,
                  "Associate Client Email"=input$cemail,
                  "Ask By Customer"=input$ask,"Project Type"=input$type,"Billing"=input$bill,"Remarks"=input$rem ,
                  "Completion Date" = as.character(input$date), "Website status" = input$status )
    formdata <- t(formdata)
    formdata
  })

saveData <- function(formdata) {
    fileName <- sprintf("%s_%s.csv",
                        humanTime(),
                        digest::digest(formdata))

    write.csv(x = formdata, file = file.path(responsesDir, fileName),
              row.names = FALSE, quote = TRUE)
}

Data <- reactive( {
    # Read all the files into a list
    files <- list.files(responsesDir, full.names = TRUE)
    data <- lapply(files, read.csv, stringsAsFactors = FALSE)
    # Concatenate all data together into one data.frame
    data <- do.call(rbind, data)
    return(data) 
}

output$responses <- DT::renderDataTable({
    Data()
})

DT::DTOutput("responses"),style = "height:auto; overflow-y: scroll;overflow-x: scroll;"),