Fix ParseHCA

showteeth · Apr 30, 2024 · 129a1eb · 129a1eb
1 parent f749a61
commit 129a1eb
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/hca.R b/R/hca.R
@@ -330,6 +330,10 @@ ParseHCA <- function(meta, file.ext = c("rds", "rdata", "h5", "h5ad", "loom"), o
   if (is.null(out.folder)) {
     out.folder <- getwd()
   }
+  if (!dir.exists(out.folder)) {
+    message(out.folder, " does not exist, create automatically!")
+    dir.create(out.folder, recursive = TRUE)
+  }
   names(download.urls) <- file.path(out.folder, names(download.urls))
   # download urls
   # set timeout