R/check_raket_params_list_elements.R

In richelbilderbeek/raket: What If Speciation Takes Time?

#' Check if the \code{raket_params} is a list with all the required elements
#' @inheritParams default_params_doc
#' @export
check_raket_params_list_elements <- function(
  raket_params
) {
  argument_names <- c(
    "pbd_params",
    "pir_params",
    "sampling_method",
    "true_tree_filename",
    "pbd_sim_out_filename"
  )
  for (arg_name in argument_names) {
    if (!arg_name %in% names(raket_params)) {
      stop(
        "'", arg_name, "' must be an element of a 'raket_params'"
      )
    }
  }
}