R/fit.R

In workflowsets: Create a Collection of 'tidymodels' Workflows

#' @importFrom generics fit

#' @noRd
#' @method fit workflow_set
#' @export
fit.workflow_set <- function(object, ...) {
  msg <- "`fit()` is not well-defined for workflow sets."

  # supply a different message depending on whether the
  # workflow set has been (attempted to have been) fitted or not
  if (!all(purrr::map_lgl(object$result, ~ identical(.x, list())))) {
    # if fitted:
    msg <-
      c(
        msg,
        "i" = "Please see {.help [{.fun fit_best}](workflowsets::fit_best.workflow_set)}."
      )
  } else {
    # if not fitted:
    msg <-
      c(
        msg,
        "i" = "Please see {.help [{.fun workflow_map}](workflowsets::workflow_map)}."
      )
  }

  cli::cli_abort(msg)
}