#' Compact data.frame
#'
#' @export
#' @param x Input data.frame
#' @examples
#' dframe(sample_data_1)
#' dframe(mtcars)
#' dframe(iris)
dframe <- function(x) {
UseMethod("dframe")
}
#' @export
dframe.default <- function(x) {
stop("no 'dframe' method for ", class(x), call. = FALSE)
}
#' @export
dframe.data.frame <- function(x) {
tibble::as_tibble(x)
}
#' @export
dframe.dframe <- function(x) x
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.