diff --git a/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R b/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R
index b98612f384bf8d620741c112a0a952a4a574ae8c..55310596326f93b01b1b2ff3af9378f6ec3f17b1 100644
--- a/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R
+++ b/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R
@@ -135,6 +135,31 @@ if (!DATA_EXTRACT_IS_RECENT) {
 
 
 
+######################################################################
+### WRITE RAW DATA TO OUTPUT DIRECTORY
+######################################################################
+## Name of output file
+INVENTORY_OUT_01_FILENAME <- paste0("INVENTORY_OUT_01_raw_data", 
+                                    "_country-", 
+                                    paste(unique(dat_inventory_raw$country), collapse = "-"), 
+                                    "_timestamp-", 
+                                    strftime(Sys.time(), format = "%Y%m%d_%H%M%S"), 
+                                    ".csv")
+
+## Write to output file
+write.table(dat_inventory_raw, 
+            file      = paste0("./01_INVENTORY/outputs/", 
+                               INVENTORY_OUT_01_FILENAME), 
+            sep       = ",", 
+            dec       = ".", 
+            quote     = TRUE, 
+            col.names = TRUE, 
+            row.names = FALSE)
+
+
+
+
+
 ######################################################################
 ### UPDATE DATA_EXTRACT_IS_RECENT
 ######################################################################
diff --git a/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R b/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R
index 98b17d812fe502e4cc3381ecc290ec2421b63868..68dc807d0f26f725d0e089e733bf14ff7298aaf3 100644
--- a/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R
+++ b/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R
@@ -107,6 +107,31 @@ if (!DATA_EXTRACT_IS_RECENT) {
 
 
 
+######################################################################
+### WRITE RAW DATA TO OUTPUT DIRECTORY
+######################################################################
+## Name of output file
+OBSERVATIONAL_OUT_01_FILENAME <- paste0("OBSERVATIONAL_OUT_01_raw_data", 
+                                        "_country-", 
+                                        paste(unique(dat_observational_raw$country), collapse = "-"), 
+                                        "_timestamp-", 
+                                        strftime(Sys.time(), format = "%Y%m%d_%H%M%S"), 
+                                        ".csv")
+
+## Write to output file
+write.table(dat_observational_raw, 
+            file      = paste0("./02_OBSERVATIONAL/outputs/", 
+                               OBSERVATIONAL_OUT_01_FILENAME), 
+            sep       = ",", 
+            dec       = ".", 
+            quote     = TRUE, 
+            col.names = TRUE, 
+            row.names = FALSE)
+
+
+
+
+
 ######################################################################
 ### UPDATE DATA_EXTRACT_IS_RECENT
 ######################################################################