make the directory exists before writing to it #138

inbo · Jul 18, 2024 · 0f94a56 · 0f94a56
1 parent 87acb14
commit 0f94a56
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/default_organisation.R b/R/default_organisation.R
@@ -13,7 +13,9 @@
 #' @family both
 default_organisation <- function(org = organisation$new()) {
   assert_that(inherits(org, "organisation"))
-  R_user_dir("checklist", which = "config") |>
+  target <- R_user_dir("checklist", which = "config")
+  dir_create(target)
+  target |>
     path("organisation.yml") |>
     write_yaml(x = org$template)
   return(invisible(NULL))