feat: add function for creating all exercises at once @jimgar

NAMESPACE

@@ -1,6 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
+export(create_all_exercises)
 export(exo_committed_to_main)
 export(exo_latest_message)
 export(exo_one_small_change)
 export(exo_split_changes)
+importFrom(rlang,`%||%`)

R/create-all.R

@@ -0,0 +1,19 @@
+#' Create all exercises folder at once
+#'
+#' But do not open them!
+#'
+#' @inheritParams exo_one_small_change
+#'
+#' @return The parent path
+#' @export
+#'
+create_all_exercises <- function(parent_path) {
+  rlang::local_interactive(FALSE)
+
+  funs <- getNamespaceExports("saperlipopette")
+  funs <- setdiff(funs, "create_all_exercises")
+  purrr::walk(funs, rlang::exec, parent_path = parent_path)
+
+  fs::dir_tree(parent_path)
+  return(parent_path)
+}

R/saperlipopette-package.R

@@ -0,0 +1,7 @@
+#' @keywords internal
+#' @importFrom rlang `%||%`
+"_PACKAGE"
+
+## usethis namespace: start
+## usethis namespace: end
+NULL

R/utils-usethis.R

@@ -1,6 +1,6 @@
 create_project <- function(path) {
   rlang::with_options(
-    usethis.quiet = FALSE,
+    usethis.quiet = getOption("usethis.quiet") %||% FALSE,
     usethis::create_project(path)
   )
 }

_pkgdown.yml

@@ -11,3 +11,6 @@ reference:
 - title: Other exercises
   contents:
   - exo_split_changes
+- title: All exercises at once
+  contents:
+  - create_all_exercises

tests/testthat/_snaps/create-all.md

@@ -0,0 +1,20 @@
+# create_all_exercises() works
+
+    Code
+      create_all_exercises(parent_path)
+    Output
+      
+      +-- committed-to-main
+      |   +-- R
+      |   \-- bla
+      +-- latest-message
+      |   +-- R
+      |   \-- bla
+      +-- one-small-change
+      |   +-- R
+      |   \-- bla
+      \-- split-changes
+          \-- R
+              \-- script.R
+      [1] ""
+

tests/testthat/test-create-all.R

@@ -0,0 +1,8 @@
+test_that("create_all_exercises() works", {
+  rlang::local_options(cli.default_handler = function(msg) invisible(NULL))
+  parent_path <- withr::local_tempdir()
+  expect_snapshot(
+    create_all_exercises(parent_path),
+    transform = function(x) gsub(parent_path, "", x, fixed = TRUE)
+  )
+})

tests/testthat/test-utils-fs.R

@@ -1,5 +1,6 @@
 test_that("dir_create() errors if the path exist", {
   rlang::local_options(cli.default_handler = function(msg) invisible(NULL))
+  rlang::local_options(usethis.quiet = FALSE)
   parent_path <- withr::local_tempdir()
   path <- exo_split_changes(parent_path = parent_path)
   expect_error(