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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#' @title Check parameter / parameter set contain ONLY a certain type.
#'
#' @description
#' An empty param set is considered to be of all types.
#'
#' @template arg_par_or_set
#' @template arg_include_int
#' @template arg_include_logical
#' @template ret_bool
#' @name isType
#' @rdname isType
NULL
#' @export
#' @rdname isType
isNumeric = function(par, include.int = TRUE) {
assert(checkClass(par, "Param"), checkClass(par, "ParamSet"))
UseMethod("isNumeric")
}
#' @export
isNumeric.ParamSet = function(par, include.int = TRUE) {
all(vlapply(par$pars, isNumeric.Param, include.int = include.int))
}
#' @export
isNumeric.Param = function(par, include.int = TRUE) {
isNumericTypeString(par$type, include.int)
}
#' @export
#' @rdname isType
isDiscrete = function(par, include.logical = TRUE) {
assert(checkClass(par, "Param"), checkClass(par, "ParamSet"))
UseMethod("isDiscrete")
}
#' @export
isDiscrete.ParamSet = function(par, include.logical = TRUE) {
hasAllParamsOfTypes(par, getTypeStringsDiscrete(include.logical))
}
#' @export
isDiscrete.Param = function(par, include.logical = TRUE) {
par$type %fin% getTypeStringsDiscrete(include.logical = include.logical)
}
#' @export
#' @rdname isType
isInteger = function(par) {
assert(checkClass(par, "Param"), checkClass(par, "ParamSet"))
UseMethod("isInteger")
}
#' @export
isInteger.ParamSet = function(par) {
return(hasAllParamsOfTypes(par, getTypeStringsInteger()))
}
#' @export
isInteger.Param = function(par) {
return(par$type %fin% c("integer", "integervector"))
}
#' @export
#' @rdname isType
isLogical = function(par) {
assert(checkClass(par, "Param"), checkClass(par, "ParamSet"))
UseMethod("isLogical")
}
#' @export
isLogical.ParamSet = function(par) {
return(hasAllParamsOfTypes(par, getTypeStringsLogical()))
}
#' @export
isLogical.Param = function(par) {
return(isLogicalTypeString(par$type))
}
#' @export
#' @rdname isType
isCharacter = function(par) {
assert(checkClass(par, "Param"), checkClass(par, "ParamSet"))
UseMethod("isCharacter")
}
#' @export
isCharacter.ParamSet = function(par) {
return(hasAllParamsOfTypes(par, getTypeStringsCharacter()))
}
#' @export
isCharacter.Param = function(par) {
return(isCharacterTypeString(par$type))
}
|
