1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#' @title Check if parameter values contain expressions.
#'
#' @description Checks if a parameter, parameter set or list of parameters
#' contain expressions.
#' @param obj ([Param()] | [ParamHelpers::ParamSet()] | `list`)\cr
#' Parameter, parameter set or list of parameters.
#' @return `logical(1)`.
#' @examples
#' ps1 = makeParamSet(
#' makeNumericParam("x", lower = 1, upper = 2),
#' makeNumericParam("y", lower = 1, upper = 10)
#' )
#'
#' ps2 = makeParamSet(
#' makeNumericLearnerParam("x", lower = 1, upper = 2),
#' makeNumericLearnerParam("y", lower = 1, upper = expression(p))
#' )
#'
#' hasExpression(ps1)
#' hasExpression(ps2)
#' @export
hasExpression = function(obj) {
UseMethod("hasExpression")
}
#' @export
hasExpression.Param = function(obj) {
any(vlapply(obj, is.expression))
}
#' @export
hasExpression.LearnerParam = function(obj) {
any(vlapply(obj, is.expression))
}
#' @export
hasExpression.ParamSet = function(obj) {
any(vlapply(obj$pars, hasExpression))
}
#' @export
hasExpression.LearnerParamSet = function(obj) {
any(vlapply(obj$pars, hasExpression))
}
#' @export
hasExpression.list = function(obj) {
any(vlapply(obj, hasExpression))
}
|
