将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工作表中的输入ID的字符向量，然后使用此功能保存数据

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())