Following the previous commit, fix a corresponding (non-) issue where the raw...

Following the previous commit, fix a corresponding (non-) issue where the raw data was used to get country identifiers but it should rather have been the curated data. Impact is non-existent, but better be safe than sorry.

02_OBSERVATIONAL/OBSERVATIONAL_02_curate_REDCap_raw_data.R

@@ -65,7 +65,7 @@ dat_observational_curated <- dat_observational_raw %>%
 ## Name of output file
 OBSERVATIONAL_OUT_02_FILENAME <- paste0("OBSERVATIONAL_OUT_02_raw-curated_data", 
                                         "_country-", 
-                                        paste(unique(dat_observational_raw$country), collapse = "-"), 
+                                        paste(unique(dat_observational_curated$country), collapse = "-"), 
                                         "_timestamp-", 
                                         strftime(Sys.time(), format = "%Y%m%d_%H%M%S"), 
                                         ".csv")