1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#' @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
}
|
