Nothing
#' Misc for boilerplate
#' @keywords internal
#' @return No return value, called for side effects
#' @export
get_recipe_call <- function(.rec_call){
cl <- .rec_call
cl$tune <- NULL
cl$verbose <- NULL
cl$colors <- NULL
cl$prefix <- NULL
rec_cl <- cl
rec_cl[[1]] <- rlang::expr(recipe)
rec_cl
}
#' Misc for boilerplate
#' @keywords internal
#' @return No return value, called for side effects
#' @export
assign_value <- function(name, value, cr = TRUE) {
value <- rlang::enexpr(value)
value <- rlang::expr_text(value, width = 74L)
chr_assign(name, value, cr)
}
#' Misc for boilerplate
#' @keywords internal
#' @return No return value, called for side effects
#' @export
chr_assign <- function(name, value, cr = TRUE) {
name <- paste(name, "<-")
if (cr) {
res <- c(name, paste0("\n ", value))
} else {
res <- paste(name, value)
}
res
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.