v0.7.8 - SQLite files will be deleted if the user asked for CSV or RDS output

Author: Cole Chuchmach

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: datastan
 Type: Package
 Title: Minimizing Linkage Response Time with User Friendly Standardizing Functions and Applications
-Version: 0.7.7
+Version: 0.7.8
 Authors@R: c(
             person(given=c("Cole", "D."), family="Chuchmach", email="Cole.Chuchmach@umanitoba.ca", role=c("aut", "cre")),
             person(given=c("Barret", "A."), family="Monchka", email="Barret.Monchka@umanitoba.ca", role="aut")

R/data_standardization_script.R

@@ -2950,11 +2950,25 @@ standardize_data <- function(input_file_path, input_dataset_code, input_flags, o
     clean_db_conn <- dbConnect(RSQLite::SQLite(), clean_file_path)
     df <- dbReadTable(clean_db_conn, 'clean_data_table')
     dbDisconnect(clean_db_conn)
+
+    # If file output is not sqlite, remove it
+    output_type <- flag_lookup["file_output"]
+    if(output_type != "sqlite"){
+      print(paste0("Removing SQLite File: ", clean_file_path))
+      file.remove(clean_file_path)
+    }
+
     return(df)
   }
   else{
+    # If file output is not sqlite, remove it
+    output_type <- flag_lookup["file_output"]
+    if(output_type != "sqlite"){
+      print(paste0("Removing SQLite File: ", clean_file_path))
+      file.remove(clean_file_path)
+    }
+
     print("File is too large to open and return, or a maximum file size was not provided.")
     return(data.frame())
   }
-
 }