> str(tbl_sum(1:3))
 Named chr "int [3]"
 - attr(*, "names")= chr "Description"

> str(tbl_sum(tibble(a = 1:3, b = letters[2:4])))
 Named chr "3 x 2"
 - attr(*, "names")= chr "A tibble"

> dim_desc(iris)
[1] "150 x 5"

> dim_desc(Titanic)
[1] "4 x 2 x 2 x 2"

> dim_desc(1:3)
[1] "3"

> size_sum(trees)
[1] " [31 x 3]"

> size_sum(Titanic)
[1] " [4 x 2 x 2 x 2]"

> size_sum(1:3)
[1] " [3]"

