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
|
#' Printing Workhorse Function
#'
#' This internal function is used for printing steps.
#'
#' @param tr_obj A character vector of names that have been
#' resolved during preparing the recipe (e.g. the `columns` object
#' of [step_log()]).
#' @param untr_obj An object of selectors prior to prepping the
#' recipe (e.g. `terms` in most steps).
#' @param trained A logical for whether the step has been trained.
#' @param title A character, shortly describing the action the step takes.
#' @param width An integer denoting where the output should be wrapped.
#' @return `NULL`, invisibly.
#' @keywords internal
#' @export
#' @rdname recipes-internal
print_step <- function(tr_obj = NULL,
untr_obj = NULL,
trained = FALSE,
title = NULL,
width = max(20, options()$width - 30),
case_weights = NULL) {
cat(title)
if (trained) {
txt <- format_ch_vec(tr_obj, width = width)
} else {
txt <- format_selectors(untr_obj, width = width)
}
if (length(txt) == 0L) {
txt <- "<none>"
}
cat(txt)
if (trained) {
if (is.null(case_weights)) {
cat(" [trained]\n")
} else {
case_weights_ind <- ifelse(case_weights, "weighted", "ignored weights")
trained_txt <- paste(case_weights_ind, "trained", sep = ", ")
trained_txt <- paste0(" [", trained_txt, "]\n")
cat(trained_txt)
}
} else {
cat("\n")
}
invisible(NULL)
}
|
