Пользователю предлагается ввести некоторые данные в текстовые входы / радиокнопки / и т. Д., И эта информация должна быть сохранена и экспортирована на локальный компьютер.Каждый раз, когда я пытаюсь отправить ответы, я получаю следующую ошибку:
Ошибка в 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() ******
})
Я не уверен, как исправить эту ошибку, я провел много исследований, но каждая ситуация, которую я обнаружил в Интернете, некажется, не имеет отношения к моей конкретной борьбе.