Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
215 lines (181 sloc) 5.26 KB
# NULLCPO.R -- all the operations provided by and for the NULLCPO object.
# These are mostly generics that provide the proper behaviour of NULLCPO.
# If a generic concerns itself mostly with NULLCPO, it should probably
# go here, and *not* in other files that it might also touch (e.g. printing).
#' @include operators.R
#' @title CPO Composition Neutral Element
#'
#' @description
#' \code{NULLCPO} is the neutral element of \code{\link{CPO}} and \code{\link{CPOTrained}} composition when using
#' \code{\link{\%>>\%}} or \code{\link{composeCPO}}. It is furthermore no effect when attached to a \code{\link[mlr:makeLearner]{Learner}}
#' using \code{\link{attachCPO}} (or \code{\link{\%>>\%}}), or when applied to data using \code{\link{applyCPO}}, \code{\link{invert}},
#' or \code{\link[stats]{predict}} (or, again, \code{\link{\%>>\%}}).
#'
#' \code{NULLCPO} works as a stand-in for certain operations that have an "empty" return value:
#' It is returned when \code{\link{retrafo}} and \code{\link{inverter}} are applied to an object that has no retrafo or inverter
#' associated with it, and by \code{\link{pipeCPO}} when applied to an empty list.
#'
#' \code{NULLCPO} can be checked using \code{\link{is.nullcpo}}, and converted from or to \code{NULL} using \code{\link{nullToNullcpo}} and
#' \code{\link{nullcpoToNull}}. Otherwise it behaves very similarly to other \code{\link{CPO}} or \code{\link{CPOTrained}} objects.
#'
#' @family retrafo related
#' @family inverter related
#' @family CPO lifecycle related
#' @family NULLCPO related
#' @export
NULLCPO = makeS3Obj(c("NULLCPO", "CPOPrimitive", "CPORetrafo", "CPOInverter", "CPOTrained", "CPO")) # nolint
#' @title Check for NULLCPO
#'
#' @description
#' Check whether the given object is a \code{\link{NULLCPO}}.
#'
#' @param x [any]\cr
#' The object to check
#' @return [\code{logical(1)}]. \code{TRUE} if \code{x} is a \code{NULLCPO}, \code{FALSE} otherwise.
#' @family NULLCPO related
#' @export
is.nullcpo = function(x) { # nolint
"NULLCPO" %in% class(x)
}
#' @title NULLCPO to NULL
#'
#' @description
#' Convert \code{\link{NULLCPO}} to \code{NULL}, leave other values intact.
#'
#' @template arg_cpo
#' @return [\code{\link{CPO}} | \code{NULL}]. \code{NULL} if \code{cpo} is \code{NULLCPO}, \code{cpo} otherwise.
#' @family NULLCPO related
#' @export
nullcpoToNull = function(cpo) {
if (is.nullcpo(cpo)) {
NULL
} else {
cpo
}
}
#' @title NULL to NULLCPO
#'
#' @description
#' Convert \code{NULL} to \code{\link{NULLCPO}}, leave other values intact.
#'
#' @param cpo [\code{\link{CPO}} | \code{NULL}]\cr
#' The CPO.
#' @return [\code{\link{CPO}}]. \code{\link{NULLCPO}} if \code{cpo} is \code{NULL}, \code{cpo} otherwise.
#' @family NULLCPO related
#' @export
nullToNullcpo = function(cpo) {
if (is.null(cpo)) {
NULLCPO
} else {
cpo
}
}
#' @export
`%>>%.NULLCPO` = function(cpo1, cpo2) {
if (any(c("Learner", "CPO", "CPOTrained") %in% class(cpo2))) {
cpo2
} else {
NextMethod()
}
}
#' @export
predict.NULLCPO = function(object, data, predict.type, ...) {
assert(length(list(...)) == 0)
data
}
#' @export
getCPOTrainedState.NULLCPO = function(trained.object) {
NULL
}
#' @export
getParamSet.NULLCPO = function(x) {
makeParamSet()
}
#' @export
getHyperPars.NULLCPO = function(learner, for.fun = c("train", "predict", "both")) {
namedList()
}
#' @export
setCPOId.NULLCPO = function(cpo, id) {
stop("Cannot set ID of NULLCPO.")
}
#' @export
getCPOId.NULLCPO = function(cpo) {
NULL
}
#' @export
getCPOAffect.NULLCPO = function(cpo, drop.defaults = TRUE) {
if (drop.defaults) {
namedList()
} else {
list(type = c("numeric", "factor", "ordered", "other"),
index = integer(0), names = character(0), pattern = NULL,
invert = FALSE, pattern.ignore.case = FALSE, pattern.perl = FALSE, pattern.fixed = FALSE)
}
}
#' @export
getCPOProperties.NULLCPO = function(cpo, only.data = FALSE, get.internal = FALSE) {
ret = list(handling = c(cpo.dataproperties, if (!only.data) cpo.all.target.properties),
adding = character(0), needed = character(0))
if (get.internal) {
ret$adding.min = character(0)
ret$needed.max = character(0)
}
ret
}
#' @export
getCPOName.NULLCPO = function(cpo) {
"NULLCPO"
}
#' @export
getCPOId.NULLCPO = function(cpo) {
"NULLCPO"
}
#' @export
getCPOClass.NULLCPO = function(cpo) {
"NULLCPO"
}
#' @export
getCPOTrainedCapability.NULLCPO = function(cpo) {
c(retrafo = 0L, invert = 0L)
}
#' @export
getCPOOperatingType.NULLCPO = function(cpo) {
character(0)
}
#' @export
getCPOTrainedCPO.NULLCPO = function(cpo) {
NULLCPO
}
#' @export
getCPOConstructor.NULLCPO = function(cpo) {
stop("No CPOConstructor for NULLCPO.")
}
#' @export
composeCPO.NULLCPO = function(cpo1, cpo2) {
cpo2
}
#' @export
attachCPO.NULLCPO = function(cpo, learner) {
learner
}
#' @export
applyCPO.NULLCPO = function(cpo, task) {
task
}
#' @export
invert.NULLCPO = function(inverter, prediction, predict.type = "response") {
# message("(Inversion was a no-op.)")
prediction
}
#' @export
as.list.NULLCPO = function(x, ...) {
list()
}
#' @export
print.NULLCPO = function(x, ...) {
cat("NULLCPO\n")
}
# apparently this is needed for building
registerS3method("getCPOOperatingType", "NULLCPO", getCPOOperatingType.NULLCPO)
registerS3method("composeCPO", "NULLCPO", composeCPO.NULLCPO)
You can’t perform that action at this time.