add dir path

bigomics · Dec 30, 2024 · c58cc47 · c58cc47
1 parent e53b04a
commit c58cc47
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/pgx-read.R b/R/pgx-read.R
@@ -258,9 +258,9 @@ read_files <- function(dir = ".", pattern = NULL) {
   file2 <- head(grep("sample", ff, value = TRUE), 1)
   file3 <- head(grep("contrast|comparison", ff, value = TRUE), 1)
   counts <- samples <- contrasts <- NULL
-  if (length(file1)) counts <- read_counts(file1)
-  if (length(file2)) samples <- read_samples(file2)
-  if (length(file3)) contrasts <- read_contrasts(file3)
+  if (length(file1)) counts <- read_counts(file.path(dir,file1))
+  if (length(file2)) samples <- read_samples(file.path(dir,file2))
+  if (length(file3)) contrasts <- read_contrasts(file.path(dir,file3))
 
   list(
     counts = counts,