#' Check if \code{project_folder_name} ends with \code{razzo_project}
#' and is the name of an existing folder.
#' Will throw if not.
#' Else will do nothing.
#' @inheritParams default_params_doc
#' @return nothing
#' @author Richel J.C. Bilderbeek
#' @export
check_project_folder_name <- function(project_folder_name) {
if (basename(project_folder_name) != "raket_werper") {
stop("'project_folder_name' must end with 'raket_werper'")
}
if (!dir.exists(project_folder_name)) {
stop(
"'project_folder_name' absent. ",
"Folder with path '", project_folder_name, "' not found"
)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.