From 68ace16b204bb48f551e34f7a9cacdba18d49211 Mon Sep 17 00:00:00 2001
From: Vlad Petyuk <petyuk@gmail.com>
Date: Sat, 23 Nov 2024 22:27:27 -0800
Subject: [PATCH] adding csv capability

---
 R/PNNL_DMS_utils.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/PNNL_DMS_utils.R b/R/PNNL_DMS_utils.R
index aee8157..2231c7f 100644
--- 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) %>%