#' @export
summarise_data <- function(x, ..., .fun, .args = NULL) {
columns <- evaluate_dots(x, ...)
dat <- data[, columns, drop = FALSE]
aggregate(
dat,
FUN = .fun,
.args
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.