#' data.frame-first formula-second method for \code{\link[rpart]{rpart}}
#'
#' This function passes a data.frame, formula, and additional arguments to
#' \code{\link[rpart]{rpart}}.
#'
#' @seealso \code{\link[rpart]{rpart}}
#'
#' @inheritParams twidlr_defaults
#' @export
#'
#' @examples
#' rpart(mtcars, hp ~ .)
#'
#' # Help page for function being twiddled
#' ?rpart::rpart
rpart <- function(data, formula, ...) {
check_pkg("rpart")
UseMethod("rpart")
}
#' @export
rpart.default <- function(data, formula, ...) {
key_args <- coerce_args(data, formula)
data <- key_args$data
formula <- key_args$formula
rpart::rpart(formula = formula, data = data, ...)
}
#' @rdname rpart
#' @export
#' @export predict.rpart
predict.rpart <- function(object, data, ...) {
data <- predict_checks(data = data, ...)
rpart:::predict.rpart(object, newdata = data, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.