R/extract.R

In tidymodels/dials: Tools for Creating Tuning Parameter Values

#' @export
extract_parameter_dials.parameters <- function(x, parameter, ...) {
  check_dots_empty()
  check_string(parameter, allow_empty = FALSE)

  which_id <- which(x$id == parameter)
  if (length(which_id) == 0) {
    cli::cli_abort("No parameter exists with id {.val {parameter}}.")
  }

  x$object[[which_id]]
}