Can 'save_gcae_setup' to any folder

AJResearchGroup · Mar 30, 2022 · 46698bc · 46698bc
1 parent 15f450e
commit 46698bc
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/R/save_gcae_setup.R b/R/save_gcae_setup.R
@@ -33,6 +33,11 @@ save_gcae_setup <- function(
     parameter = names(gcae_setup),
     value = as.character(unlist(gcae_setup))
   )
+  dir.create(
+    dirname(gcae_setup_filename),
+    recursive = TRUE,
+    showWarnings = FALSE
+  )
   readr::write_csv(x = t, file = gcae_setup_filename)
   invisible(gcae_setup)
 }
diff --git a/tests/testthat/test-save_gcae_setup.R b/tests/testthat/test-save_gcae_setup.R
@@ -9,3 +9,17 @@ test_that("use", {
   expect_true(file.exists(gcae_setup_filename))
   file.remove(gcae_setup_filename)
 })
+
+test_that("sub-sub-sub folder", {
+  gcae_setup <- create_test_gcae_setup()
+  gcae_setup_filename <- file.path(
+    get_gcaer_tempfilename(),
+    "sub", "sub", "file.csv"
+  )
+  save_gcae_setup(
+    gcae_setup = gcae_setup,
+    gcae_setup_filename = gcae_setup_filename
+  )
+  expect_true(file.exists(gcae_setup_filename))
+  file.remove(gcae_setup_filename)
+})