1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# @description
# Returns the names of all params which are required by the given Param or ParamSet.
# @template arg_par_or_set
# @return [\code{character}]: names of parameters which are required
getRequiredParamNames = function(par) {
UseMethod("getRequiredParamNames")
}
#' @export
getRequiredParamNames.Param = function(par) {
all.vars(par$requires)
}
#' @export
getRequiredParamNames.ParamSet = function(par) {
if (isEmpty(par)) {
return(character(0L))
}
unique(unlist(lapply(par$pars, getRequiredParamNames.Param), use.names = FALSE))
}
|
