diff --git a/GettysburgSubmissionApp/www/GettysburgSubmissionSource.R b/GettysburgSubmissionApp/www/GettysburgSubmissionSource.R
index 827c6a1a2c2b3d670a992a0faef3be22a2511f24..6e8e373a5e2f047862ed1a0c57785c2194de0b8e 100644
--- a/GettysburgSubmissionApp/www/GettysburgSubmissionSource.R
+++ b/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
 }