R/check_project_folder_name.R

In richelbilderbeek/raket: What If Speciation Takes Time?

#' 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"
    )
  }
}