# 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.