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

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