Merge pull request #316 from ycl6/Improve_export_path_construction

Use file.path() to build export file path
BorchLab · Feb 14, 2024 · 3f25230 · 3f25230
2 parents 07492e9 + 8f31a43
commit 3f25230
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/exportClones.R b/R/exportClones.R
@@ -52,9 +52,9 @@ exportClones <- function(input.data,
   }
 
   if(is.null(dir)) {
-    dir <- "./"
+    dir <- "."
   }
-  filepath <- paste0(dir, file.name)
+  filepath <- file.path(dir, file.name)
   write.csv(mat, file = filepath)
 }