R/as_resampling.R

In mlr3: Machine Learning in R - Next Generation

#' @title Convert to a Resampling
#'
#' @description
#' Convert object to a [Resampling] or a list of [Resampling].
#'
#' @inheritParams as_task
#' @export
as_resampling = function(x, ...) { # nolint
  UseMethod("as_resampling")
}

#' @export
#' @rdname as_resampling
as_resampling.Resampling = function(x, clone = FALSE, ...) { # nolint
  if (isTRUE(clone)) x$clone() else x
}

#' @export
#' @rdname as_resampling
as_resamplings = function(x, ...) { # nolint
  UseMethod("as_resamplings")
}

#' @export
#' @rdname as_resampling
as_resamplings.default = function(x, ...) { # nolint
  list(as_resampling(x, ...))
}

#' @export
#' @rdname as_resampling
as_resamplings.list = function(x, ...) { # nolint
  lapply(x, as_resampling, ...)
}