尝试在闪亮的应用中保存用户输入时收到错误（rds错误）

Question

提示用户在textinputs / radiobuttons / etc中输入一些详细信息，并且此信息将被保存并导出到本地计算机上。每次我尝试提交响应时，都会收到以下错误：

readRDS错误：未知的输入格式

在返回错误之前，它引用了这两行代码（它们旁边带有****）：

if (length(files) == 0){ 
#create empty data frame with correct columns
    field_list <- c(fields, "submit_time")
    data <- data.frame(matrix(ncol = length(field_list), nrow =0))
    names(data) <- field_list
}   else {
    data <- lapply(files, function(x) readRDS(x))  ****

#Concatenate all data together into one data.frame
data<- do.call(rbind, data)

AND

#Show the previous responses in a reactive table
output$responses <- renderDataTable({
#update with current response when Submit or Delete are clicked
   input$submit
   input$delete

   loadData()   ******
 })

我不确定如何解决所说的错误，我做了很多研究，但是我在网上发现的每种情况似乎都不关乎我的特殊挣扎。