R/check_pbd_params_selector.R

In richelbilderbeek/becosys: Unified Interface To Phylogenetics Models Of Speciation

#' Check if the input is a valid PBD parameter selector.
#'
#' Will \link{stop} if not
#' @inheritParams default_params_doc
#' @seealso use \link{is_pbd_params_selector} to measure
#' if the input is a valid PBD parameter selector
#' @export
check_pbd_params_selector <- function(pbd_params_selector) {
  for (name in becosys::get_pbd_param_names()) {
    if (!name %in% names(pbd_params_selector)) {
      stop(
        "'", deparse(substitute(pbd_params_selector)), "' ",
        "is missing element '", name, "'"
      )
    }
  }
  assertive::assert_is_if_condition(pbd_params_selector$erg)
  assertive::assert_is_if_condition(pbd_params_selector$eri)
  assertive::assert_is_if_condition(pbd_params_selector$scr)
  assertive::assert_is_if_condition(pbd_params_selector$sirg)
  assertive::assert_is_if_condition(pbd_params_selector$siri)
}