adding csv capability

PNNL-Comp-Mass-Spec · Nov 24, 2024 · 68ace16 · 68ace16
1 parent 27d7634
commit 68ace16
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/PNNL_DMS_utils.R b/R/PNNL_DMS_utils.R
@@ -471,8 +471,13 @@ get_results_for_single_job.dt <- function(pathToFile, fileNamePttrn, expected_mu
 
    short_dataset_names <- unlist(strsplit(basename(pathToFile), 
                                           split = fileNamePttrn))
+
+   read_fun <- read_tsv
+   if(grepl(".csv$", pathToFile))
+      read_fun <- read_csv
+
    out <- llply(pathToFile, 
-                read_tsv,
+                read_fun,
                 col_types = readr::cols(),
                 guess_max = Inf,
                 progress = FALSE) %>%