From 46698bc4e4c2ccaaced4ae1b8c89cb2f6242ac33 Mon Sep 17 00:00:00 2001
From: richelbilderbeek <richel@richelbilderbeek.nl>
Date: Wed, 30 Mar 2022 12:58:26 +0200
Subject: [PATCH] Can 'save_gcae_setup' to any folder

---
 R/save_gcae_setup.R                   |  5 +++++
 tests/testthat/test-save_gcae_setup.R | 14 ++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/R/save_gcae_setup.R b/R/save_gcae_setup.R
index 32f361a..7b6d37c 100644
--- 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
index 3cac6e1..1484cb9 100644
--- 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)
+})