Nothing
#' @importFrom pillar tbl_sum
#' @export
pillar::tbl_sum
#' @export
#' @importFrom pillar dim_desc
tbl_sum.tbl_df <- function(x, ...) {
c("A tibble" = dim_desc(x))
}
#' @importFrom pillar obj_sum
#' @export
pillar::obj_sum
#' @importFrom pillar type_sum
#' @export
pillar::type_sum
#' @importFrom pillar size_sum
#' @export
pillar::size_sum
#' @export
vec_ptype_abbr.tbl_df <- function(x, ...) {
abbr <- class(x)[[1]]
if (abbr == "tbl_df") {
abbr <- "tibble"
}
abbr
}
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.