Merge pull request #46 from PNNL-Comp-Mass-Spec/45-add-capability-to-…

…read-csv-files-from-dms adding csv capability
PNNL-Comp-Mass-Spec · Nov 24, 2024 · 20622b4 · 20622b4
2 parents 27d7634 + 68ace16
commit 20622b4
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) %>%