Quickly build strata project with minimal input and standard names
Source:R/build-quick.R
build_quick_strata_project.Rd
build_quick_strata_project
will create a project with the specified
number of strata - num_strata
, with the specified number of laminae
num_laminae_per
per stratum. The strata and laminae will be namedstratum_1
,stratum_2
, etc. ands1_lamina_1
,s1_lamina_2
, etc.
Examples
tmp <- fs::dir_create(fs::file_temp())
result <- build_quick_strata_project(tmp, 2, 2)
dplyr::glimpse(result)
#> Rows: 4
#> Columns: 7
#> $ execution_order <int> 1, 2, 3, 4
#> $ stratum_name <chr> "stratum_1", "stratum_1", "stratum_2", "stratum_2"
#> $ lamina_name <chr> "s1_lamina_1", "s1_lamina_2", "s2_lamina_1", "s2_lamin…
#> $ script_name <chr> "my_code", "my_code", "my_code", "my_code"
#> $ script_path <fs::path> "/tmp/RtmpVRmQFE/file1ce0118af1c2/strata/stratum_1/s1_…
#> $ skip_if_fail <lgl> FALSE, FALSE, FALSE, FALSE
#> $ created <date> 2025-06-26, 2025-06-26, 2025-06-26, 2025-06-26
main(tmp)
#> [2025-06-26 11:53:53.5108] INFO: Strata started
#> [2025-06-26 11:53:53.5113] INFO: Stratum: stratum_1 initialized
#> [2025-06-26 11:53:53.5117] INFO: Lamina: s1_lamina_1 initialized
#> [2025-06-26 11:53:53.5122] INFO: Executing: my_code
#> [1] "I am a placeholder, do not forget to replace me!"
#> [2025-06-26 11:53:53.5130] INFO: Lamina: s1_lamina_1 finished
#> [2025-06-26 11:53:53.5134] INFO: Lamina: s1_lamina_2 initialized
#> [2025-06-26 11:53:53.5277] INFO: Executing: my_code
#> [1] "I am a placeholder, do not forget to replace me!"
#> [2025-06-26 11:53:53.5286] INFO: Stratum: stratum_1 finished
#> [2025-06-26 11:53:53.5290] INFO: Stratum: stratum_2 initialized
#> [2025-06-26 11:53:53.5294] INFO: Lamina: s1_lamina_2 finished
#> [2025-06-26 11:53:53.5298] INFO: Lamina: s2_lamina_1 initialized
#> [2025-06-26 11:53:53.5302] INFO: Executing: my_code
#> [1] "I am a placeholder, do not forget to replace me!"
#> [2025-06-26 11:53:53.5308] INFO: Lamina: s2_lamina_1 finished
#> [2025-06-26 11:53:53.5312] INFO: Lamina: s2_lamina_2 initialized
#> [2025-06-26 11:53:53.5316] INFO: Executing: my_code
#> [1] "I am a placeholder, do not forget to replace me!"
#> [2025-06-26 11:53:53.5323] INFO: Strata finished - duration: 0.0216 seconds
fs::dir_delete(tmp)