R/is_pbd_params_selector.R

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

#' Determine if the supplied object in an PBD parameter selector,
#' as can be created by \code{create_pbd_params_selector}
#' @param x the object to be determined if it is an PBD
#'   parameters selector
#' @return TRUE if x is an PBD parameters selector
#' @examples
#' s <- create_pbd_params_selector()
#'
#' is_pbd_params_selector(s))
#' is_pbd_params_selector("nonsense"))
#' @author Richel J.C. Bilderbeek
#' @export
is_pbd_params_selector <- function(x) {
  result <- FALSE
  tryCatch({
    becosys::check_pbd_params_selector(x)
    result <- TRUE
  }, error = function(e) {} # nolint indeed ignore e
  )
  result
}