Error in output file format

02_OBSERVATIONAL/OBSERVATIONAL_03_QC_02_merging_observational_and_inventory_data_integrity.R

@@ -198,7 +198,7 @@ OBSERVATIONAL_OUT_03_QC_02_FILENAME         <- paste0("OBSERVATIONAL_OUT_03_QC_0
                                                       paste(unique(dat_observational_inventory_demographics_fulljoin$country), collapse = "-"), 
                                                       "_timestamp-", 
                                                       strftime(Sys.time(), format = "%Y%m%d_%H%M%S"), 
-                                                      ".pdf")
+                                                      ".csv")
 
 # Name of output graph files
 OBSERVATIONAL_OUT_03_QC_02_PLOTNAME_SEX_01  <- paste0("OBSERVATIONAL_OUT_03_QC_02_SEX_PLOT_01",