fix temp dir behaviour

e-kotov · Aug 20, 2024 · 9c91a47 · 9c91a47
1 parent 17c2de9
commit 9c91a47
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/R/java_download.R b/R/java_download.R
@@ -34,7 +34,9 @@ java_download <- function(
   if (temp_dir) {
     temp_dir <- tempdir()
     setwd(temp_dir)
-    dir.create("rJavaEnv_cache", recursive = TRUE)
+    if (!dir.exists("rJavaEnv_cache")) {
+      dir.create("rJavaEnv_cache", recursive = TRUE)
+    }
     cache_path <- file.path(temp_dir, "rJavaEnv_cache")
   }
 

diff --git a/R/java_quick_install.R b/R/java_quick_install.R
@@ -26,9 +26,13 @@ java_quick_install <- function(
   if (temp_dir) {
     temp_dir <- tempdir()
     setwd(temp_dir)
-    dir.create("rJavaEnv_cache", recursive = TRUE)
+    if (!dir.exists("rJavaEnv_cache")) {
+      dir.create("rJavaEnv_cache", recursive = TRUE)
+    }
     cache_path <- file.path(temp_dir, "rJavaEnv_cache")
-    dir.create("rJavaEnv_project", recursive = TRUE)
+    if (!dir.exists("rJavaEnv_project")) {
+      dir.create("rJavaEnv_project", recursive = TRUE)
+    }
     project_path <- file.path(temp_dir, "rJavaEnv_project")
   } else {
     cache_path <- getOption("rJavaEnv.cache_path")