Nothing
check_trans <- function(x) {
trans_msg <- "`transform` should have two functions: 'func' and 'inv'"
if (length(x) != 2) {
rlang::abort(trans_msg)
} else {
if (!all(sort(names(x)) == c("func", "inv"))) {
rlang::abort(trans_msg)
}
if (!all(is.function(transform))) {
rlang::abort(trans_msg)
}
}
invisible(x)
}
is_repeated_cv <- function(x) {
all(grepl("^Fold", x$values$Resample) & grepl("\\.Rep", x$values$Resample))
}
get_id_vals <- function(x) {
id_vars <- grep("(^id$)|(^id[1-9]$)", names(x), value = TRUE)
map(x[, id_vars, drop = FALSE], function(x) unique(as.character(x)))
}
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.