Я настраиваю форму и сохраняю пользовательские данные в базе данных mongodb, используя Shiny.Одним из входных данных является массив, и если я использую selectizeInput, все остальные данные становятся массивом.
Я думал, что это может быть функция Саппли, и пробовал также mapply, но получил тот же результат.вот часть кода.Я добавил только часть, относящуюся к проблеме.
textInput("description"),
selectizeInput("tags", "Tags:", NULL, multiple = TRUE, options=list(create=TRUE)),
formData <- reactive({
data <- sapply(c("description", "tags"), function(x) input[[x]])
data <- c(data, timestamp = epochTime())
data <- t(data)
data
})
сохранение в mongdb:
saveData <- function(data) {
db <- #connection is here
data <- as.data.frame(data)
db$insert(data)
}
saveData(formData())