Преобразовать checkboxGroupInput для вывода в .csv

Question

Я следую учебному пособию о том, как сделать блестящее приложение, имитирующее форму Google (https://deanattali.com/2015/06/14/mimicking-google-form-shiny/),, что хорошо. Я сохраняю вывод в документе Google Лист (https://shiny.rstudio.com/articles/persistent-data-storage.html). Это было все шло хорошо, пока я не добавил checkboxGroupInput.

Я хочу сохранить поля, выбранные в checkboxGroupInput, как вектор. Кто-нибудь может помочь? Эти ответы в конечном итоге станут их собственной ячейкой в ​​той же строке на листе Google.

Короче говоря, способ объединения данных здесь:

formData <- reactive({
  data <- sapply(fieldsAll, function(x) input[[x]])
  data <- c(data,
            timestamp = epochTime())
  data <- t(data)
  data
}) 

Где fieldsAll - это символьный вектор входных идентификаторов, которые я хочу сохранить в листе Google, а затем данные сохраняются с помощью этой функции

saveData <- function(data) {
  # Grab the Google Sheet
  sheet <- gs_title(table)
  # Add the data as a new row
  gs_add_row(sheet, input = data)
}
saveData(formData())