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
|
#' @export
tunable.recipe <- function(x, ...) {
if (length(x$steps) == 0) {
res <- no_param
} else {
res <- purrr::map_dfr(x$steps, tunable)
if (nrow(res) > 0) {
res <- res[!is.na(res$name), ]
}
}
res
}
#' @export
tunable.step <- function(x, ...) {
no_param
}
no_param <-
tibble::tibble(
name = NA_character_,
call_info = list(),
source = NA_character_,
component = NA_character_,
component_id = NA_character_
)
#' @export
tunable.check <- function(x, ...) {
no_param
}
|
