#' Create all parameter files in
#' \code{project_folder_name/data/[settings]/seed/[models]}
#' @inheritParams default_params_doc
#' @return Create folders for each parameter setting
#' and saves each setting in a file within the corresponding folder.
#' @author Giovanni Laudanno, Richèl J.C. Bilderbeek
#' @export
create_parameters_files <- function(
project_folder_name = getwd(),
experiment_type
) {
testit::assert(peregrine::is_pff(project_folder_name))
testit::assert(experiment_type == "test" || experiment_type == "full")
# Pick the right set of razzo_paramses
razzo_paramses <- NA
if (experiment_type == "test") {
razzo_paramses <- razzo::create_test_razzo_paramses(
project_folder_name = project_folder_name
)
} else {
testit::assert(experiment_type == "full")
razzo_paramses <- razzo::create_razzo_paramses(
project_folder_name = project_folder_name
)
}
testit::assert(!beautier::is_one_na(razzo_paramses))
# Save it to file, returns filenames
razzo::save_razzo_paramses(razzo_paramses)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.