08/10/20 Update GettysburgSubmissionSource.R

GettysburgSubmissionApp/www/GettysburgSubmissionSource.R

@@ -32,6 +32,11 @@ loadData <- function(responsesDir) {
   files <- list.files(file.path(responsesDir), full.names = TRUE)
   data <- lapply(files, read.csv, stringsAsFactors = FALSE)
   data <- do.call(rbind, data)
+  if (length(list.files(file.path(responsesDir))) != 0) {
+    write.csv(x = data, file = file.path(responsesDir, "responses.csv"),
+              row.names = FALSE, quote = TRUE)
+    sapply(list.files(file.path(responsesDir), full.names = TRUE)[1:length(list.files(file.path(responsesDir)))-1], unlink)
+  }
   data
 }