# output test
Code
ctl_colonnade(rep(list(paste(letters, collapse = " ")), 4), width = Inf)
Output
$body
``
<chr>
1 a b c d e f g h i j k l m n o p q r s t u v w x y z
``
<chr>
1 a b c d e f g h i j k l m n o p q r s t u v w x y z
``
<chr>
1 a b c d e f g h i j k l m n o p q r s t u v w x y z
``
<chr>
1 a b c d e f g h i j k l m n o p q r s t u v w x y z
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# tests from tibble
Code
ctl_colonnade(mtcars[1:8, ], has_row_id = "*", width = 30)
Output
$body
mpg cyl disp hp
* <dbl> <dbl> <dbl> <dbl>
1 21 6 160 110
2 21 6 160 110
3 22.8 4 108 93
4 21.4 6 258 110
5 18.7 8 360 175
6 18.1 6 225 105
7 14.3 8 360 245
8 24.4 4 147. 62
$extra_cols
$extra_cols$drat
[1] 3.90 3.90 3.85 3.08 3.15 2.76 3.21 3.69
$extra_cols$wt
[1] 2.620 2.875 2.320 3.215 3.440 3.460 3.570 3.190
$extra_cols$qsec
[1] 16.46 17.02 18.61 19.44 17.02 20.22 15.84 20.00
$extra_cols$vs
[1] 0 0 1 1 0 1 0 1
$extra_cols$am
[1] 1 1 1 0 0 0 0 0
$extra_cols$gear
[1] 4 4 4 3 3 3 3 4
$extra_cols$carb
[1] 4 4 1 1 2 1 4 2
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(trees[1:5, ], width = 20)
Output
$body
Girth Height
<dbl> <dbl>
1 8.3 70
2 8.6 65
3 8.8 63
4 10.5 72
5 10.7 81
$extra_cols
$extra_cols$Volume
[1] 10.3 10.3 10.2 16.4 18.8
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(trees[1:5, ], width = 10)
Output
$body
Girth
<dbl>
1 8.3
2 8.6
3 8.8
4 10.5
5 10.7
$extra_cols
$extra_cols$Height
[1] 70 65 63 72 81
$extra_cols$Volume
[1] 10.3 10.3 10.2 16.4 18.8
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(trees[1:3, ], width = 10)
Output
$body
Girth
<dbl>
1 8.3
2 8.6
3 8.8
$extra_cols
$extra_cols$Height
[1] 70 65 63
$extra_cols$Volume
[1] 10.3 10.3 10.2
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(df_all, width = 30)
Output
$body
a b c d
<dbl> <int> <lgl> <chr>
1 1 1 TRUE a
2 2.5 2 FALSE b
3 NA NA NA <NA>
$extra_cols
$extra_cols$e
[1] a b <NA>
Levels: a b
$extra_cols$f
[1] "2015-12-10" "2015-12-11" NA
$extra_cols$g
[1] "2015-12-09 10:51:35 UTC" "2015-12-09 10:51:36 UTC"
[3] NA
$extra_cols$h
$extra_cols$h[[1]]
[1] 1
$extra_cols$h[[2]]
[1] 2
$extra_cols$h[[3]]
[1] NA
$extra_cols$i
$extra_cols$i[[1]]
$extra_cols$i[[1]][[1]]
[1] 1
$extra_cols$i[[1]][[2]]
[1] 2 3
$extra_cols$i[[2]]
$extra_cols$i[[2]][[1]]
[1] 4 5 6
$extra_cols$i[[3]]
$extra_cols$i[[3]][[1]]
[1] NA
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(df_all, width = 300)
Output
$body
a b c d e f g h
<dbl> <int> <lgl> <chr> <fct> <date> <dttm> <list>
1 1 1 TRUE a a 2015-12-10 2015-12-09 10:51:35 <int [1]>
2 2.5 2 FALSE b b 2015-12-11 2015-12-09 10:51:36 <int [1]>
3 NA NA NA <NA> <NA> NA NA <int [1]>
i
<list>
1 <list [2]>
2 <list [1]>
3 <list [1]>
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
options(width = 70)
ctl_colonnade(df_all, width = 300)
Output
$body
a b c d e f g
<dbl> <int> <lgl> <chr> <fct> <date> <dttm>
1 1 1 TRUE a a 2015-12-10 2015-12-09 10:51:35
2 2.5 2 FALSE b b 2015-12-11 2015-12-09 10:51:36
3 NA NA NA <NA> <NA> NA NA
h i
<list> <list>
1 <int [1]> <list [2]>
2 <int [1]> <list [1]>
3 <int [1]> <list [1]>
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
options(width = 60)
ctl_colonnade(df_all, width = 300)
Output
$body
a b c d e f
<dbl> <int> <lgl> <chr> <fct> <date>
1 1 1 TRUE a a 2015-12-10
2 2.5 2 FALSE b b 2015-12-11
3 NA NA NA <NA> <NA> NA
g h i
<dttm> <list> <list>
1 2015-12-09 10:51:35 <int [1]> <list [2]>
2 2015-12-09 10:51:36 <int [1]> <list [1]>
3 NA <int [1]> <list [1]>
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
options(width = 50)
ctl_colonnade(df_all, width = 300)
Output
$body
a b c d e f
<dbl> <int> <lgl> <chr> <fct> <date>
1 1 1 TRUE a a 2015-12-10
2 2.5 2 FALSE b b 2015-12-11
3 NA NA NA <NA> <NA> NA
g h i
<dttm> <list> <list>
1 2015-12-09 10:51:35 <int [1]> <list [2]>
2 2015-12-09 10:51:36 <int [1]> <list [1]>
3 NA <int [1]> <list [1]>
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
options(width = 40)
ctl_colonnade(df_all, width = 300)
Output
$body
a b c d e
<dbl> <int> <lgl> <chr> <fct>
1 1 1 TRUE a a
2 2.5 2 FALSE b b
3 NA NA NA <NA> <NA>
f g
<date> <dttm>
1 2015-12-10 2015-12-09 10:51:35
2 2015-12-11 2015-12-09 10:51:36
3 NA NA
h i
<list> <list>
1 <int [1]> <list [2]>
2 <int [1]> <list [1]>
3 <int [1]> <list [1]>
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
options(width = 30)
ctl_colonnade(df_all, width = 300)
Output
$body
a b c d
<dbl> <int> <lgl> <chr>
1 1 1 TRUE a
2 2.5 2 FALSE b
3 NA NA NA <NA>
e f
<fct> <date>
1 a 2015-12-10
2 b 2015-12-11
3 <NA> NA
g
<dttm>
1 2015-12-09 10:51:35
2 2015-12-09 10:51:36
3 NA
h i
<list> <list>
1 <int [1]> <list [2]>
2 <int [1]> <list [1]>
3 <int [1]> <list [1]>
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
options(width = 20)
ctl_colonnade(df_all, width = 300)
Output
$body
a b c
<dbl> <int> <lgl>
1 1 1 TRUE
2 2.5 2 FALSE
3 NA NA NA
d e
<chr> <fct>
1 a a
2 b b
3 <NA> <NA>
f
<date>
1 2015-12-10
2 2015-12-11
3 NA
$extra_cols
$extra_cols$g
[1] "2015-12-09 10:51:35 UTC"
[2] "2015-12-09 10:51:36 UTC"
[3] NA
$extra_cols$h
$extra_cols$h[[1]]
[1] 1
$extra_cols$h[[2]]
[1] 2
$extra_cols$h[[3]]
[1] NA
$extra_cols$i
$extra_cols$i[[1]]
$extra_cols$i[[1]][[1]]
[1] 1
$extra_cols$i[[1]][[2]]
[1] 2 3
$extra_cols$i[[2]]
$extra_cols$i[[2]][[1]]
[1] 4 5 6
$extra_cols$i[[3]]
$extra_cols$i[[3]][[1]]
[1] NA
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
list_with_ctl <- list(c("\n", "\""), factor(c("\n", "\n")))
names(list_with_ctl) <- c("\n", "\r")
ctl_colonnade(list_with_ctl, width = 30)
Output
$body
`\n` `\r`
<chr> <fct>
1 "\n" "\n"
2 "\"" "\n"
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(list(a = c("", " ", "a ", " a")), width = 30)
Output
$body
a
<chr>
1 ""
2 " "
3 "a "
4 " a"
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
ctl_colonnade(list(`mean(x)` = 5, `var(x)` = 3), width = 30)
Output
$body
`mean(x)` `var(x)`
<dbl> <dbl>
1 5 3
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# NA names
Code
x <- list(`NA` = 1:3, set_to_NA = 4:6)
names(x)[[2]] <- NA_character_
ctl_colonnade(x, width = 30)
Output
$body
`NA` ``
<int> <int>
1 1 4
2 2 5
3 3 6
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# sep argument
Code
ctl_colonnade(x, width = 30)
Output
$body
sep
<int>
1 1
2 2
3 3
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
Code
# dummy
# tibble columns
Code
ctl_colonnade(x, width = 30)
Output
$body
a b$c $d
<int> <int> <int>
1 1 4 7
2 2 5 8
3 3 6 9
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# tibble columns (nested)
Code
ctl_colonnade(x, width = 40)
Output
$body
a b$c $d $e$f$g $$$h
<int> <int> <int> <int> <int>
1 1 4 7 10 13
2 2 5 8 11 14
3 3 6 9 12 15
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# tibble columns (empty)
Code
ctl_colonnade(x, width = 40)
Output
$body
a b$c $d $e c
<int> <int> <int> <df[,0]> <int>
1 1 4 7 10
2 2 5 8 11
3 3 6 9 12
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# matrix columns (unnamed)
Code
ctl_colonnade(x, width = 30)
Output
$body
a b[,1] [,2]
<int> <int> <int>
1 1 4 7
2 2 5 8
3 3 6 9
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# matrix columns (named)
Code
ctl_colonnade(x, width = 30)
Output
$body
a b[,"c"] [,"d"]
<int> <int> <int>
1 1 4 7
2 2 5 8
3 3 6 9
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# matrix columns (empty)
Code
ctl_colonnade(list(a = 1:3, b = matrix(4:6, ncol = 1)[, 0], c = 4:6), width = 30)
Output
$body
a b c
<int> <int[,0]> <int>
1 1 4
2 2 5
3 3 6
$extra_cols
list()
$abbrev_cols
character(0)
$abbrev_col_idxs
numeric(0)
# filling unused width (#331)
Code
data
Output
# A data frame: 1 x 3
month sentences blah
<chr> <foo> <chr>
1 January a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I~
Code
options(width = 60)
print(data)
Output
# A data frame: 1 x 3
month sentences blah
<chr> <foo> <chr>
1 January a b c d~ A B C D E F G H I J K L M N O P Q R S T~
Generated by dwww version 1.15 on Thu Jun 20 13:25:33 CEST 2024.