pillar
Coloured Formatting for Columns

Package index
Search the pillar package
Vignettes
Functions
466
Source code
112
Man pages
34
Home
/
CRAN
/
pillar
/
tests/testthat/_snaps/ansi/ctl_colonnade.md

tests/testthat/_snaps/ansi/ctl_colonnade.md
In pillar: Coloured Formatting for Columns

color

Code
  style_na("NA")
Output
  [1] "\033[31mNA\033[39m"
Code
  style_neg("-1")
Output
  [1] "\033[31m-1\033[39m"

Code
  xf <- (function() ctl_colonnade(list(x = c((10^(-3:4)) * c(-1, 1), NA))))
  print(xf())
Output
  $body
            x
        [3m[90m<dbl>[39m[23m
  [90m1[39m    -[31m0[39m[31m.[39m[31m00[39m[31m1[39m
  [90m2[39m     0.01 
  [90m3[39m    -[31m0[39m[31m.[39m[31m1[39m  
  [90m4[39m     1    
  [90m5[39m   -[31m10[39m    
  [90m6[39m   100    
  [90m7[39m -[31m[4m1[24m00[39m[31m0[39m    
  [90m8[39m [4m1[24m[4m0[24m000    
  [90m9[39m    [31mNA[39m

  $extra_cols
  list()

  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

Code
  with_options(pillar.subtle_num = TRUE, print(xf()))
Output
  $body
            x
        [3m[90m<dbl>[39m[23m
  [90m1[39m    -[90m0[39m[90m.[39m[90m00[39m[31m1[39m
  [90m2[39m     [90m0[39m[90m.[39m[90m0[39m1 
  [90m3[39m    -[90m0[39m[90m.[39m[31m1[39m  
  [90m4[39m     1    
  [90m5[39m   -[31m10[39m    
  [90m6[39m   100    
  [90m7[39m -[31m[4m1[24m00[39m[90m0[39m    
  [90m8[39m [4m1[24m[4m0[24m0[90m00[39m    
  [90m9[39m    [31mNA[39m

  $extra_cols
  list()

  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

Code
  with_options(pillar.subtle = FALSE, print(xf()))
Output
  $body
            x
        [3m<dbl>[23m
  1    -[31m0[39m[31m.[39m[31m00[39m[31m1[39m
  2     0.01 
  3    -[31m0[39m[31m.[39m[31m1[39m  
  4     1    
  5   -[31m10[39m    
  6   100    
  7 -[31m[4m1[24m00[39m[31m0[39m    
  8 [4m1[24m[4m0[24m000    
  9    [31mNA[39m

  $extra_cols
  list()

  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

Code
  with_options(pillar.neg = FALSE, print(xf()))
Output
  $body
            x
        [3m[90m<dbl>[39m[23m
  [90m1[39m    -0.001
  [90m2[39m     0.01 
  [90m3[39m    -0.1  
  [90m4[39m     1    
  [90m5[39m   -10    
  [90m6[39m   100    
  [90m7[39m -[4m1[24m000    
  [90m8[39m [4m1[24m[4m0[24m000    
  [90m9[39m    [31mNA[39m

  $extra_cols
  list()

  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

Code
  with_options(pillar.subtle = FALSE, pillar.neg = FALSE, print(xf()))
Output
  $body
            x
        [3m<dbl>[23m
  1    -0.001
  2     0.01 
  3    -0.1  
  4     1    
  5   -10    
  6   100    
  7 -[4m1[24m000    
  8 [4m1[24m[4m0[24m000    
  9    [31mNA[39m

  $extra_cols
  list()

  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

Code
  with_options(pillar.bold = TRUE, print(xf()))
Output
  $body
            [1mx[22m
        [3m[90m<dbl>[39m[23m
  [90m1[39m    -[31m0[39m[31m.[39m[31m00[39m[31m1[39m
  [90m2[39m     0.01 
  [90m3[39m    -[31m0[39m[31m.[39m[31m1[39m  
  [90m4[39m     1    
  [90m5[39m   -[31m10[39m    
  [90m6[39m   100    
  [90m7[39m -[31m[4m1[24m00[39m[31m0[39m    
  [90m8[39m [4m1[24m[4m0[24m000    
  [90m9[39m    [31mNA[39m

  $extra_cols
  list()

  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

Code
  ctl_colonnade(list(a_very_long_column_name = 0), width = 20)
Output
  $body

  $extra_cols
  $extra_cols$a_very_long_column_name
  [1] 0


  $abbrev_cols
  character(0)

  $abbrev_col_idxs
  numeric(0)

focus columns

Code
  tbl_format_setup(x, width = 30, focus = "b")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x    $y b          
    [3m[90m<dbl>[39m[23m [3m[90m<dbl>[39m[23m [4m[3m[90m<chr>[39m[23m[24m      
  [90m1[39m     1     2 long enough
  [1m<tbl_format_footer(setup)>[22m
Code
  tbl_format_setup(x, width = 20, focus = "b")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x b          
    [3m[90m<dbl>[39m[23m [4m[3m[90m<chr>[39m[23m[24m      
  [90m1[39m     1 long enough
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1 more[39m
  [90m#   variable:[39m
  [90m#   a$y <dbl>[39m
Code
  tbl_format_setup(x, width = 15, focus = "b")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
    b          
    [4m[3m[90m<chr>[39m[23m[24m      
  [90m1[39m long enough
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1 more[39m
  [90m#   variable:[39m
  [90m#   a <tbl[,2]>[39m
Code
  tbl_format_setup(x, width = 10, focus = "b")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame:
  #   1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
    b       
    [4m[3m[90m<chr>[39m[23m[24m   
  [90m1[39m long en~
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1[39m
  [90m#   more[39m
  [90m#   variable:[39m
  [90m#   a <tbl[,2]>[39m
Code
  tbl_format_setup(x[2:1], width = 30, focus = "a")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
    b             a$x    $y
    [3m[90m<chr>[39m[23m       [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m long enough     1     2
  [1m<tbl_format_footer(setup)>[22m
Code
  tbl_format_setup(x[2:1], width = 20, focus = "a")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
    b        a$x    $y
    [3m[90m<chr>[39m[23m  [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m long ~     1     2
  [1m<tbl_format_footer(setup)>[22m
Code
  tbl_format_setup(x[2:1], width = 15, focus = "a")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x    $y
    [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m     1     2
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1 more[39m
  [90m#   variable:[39m
  [90m#   b <chr>[39m
Code
  tbl_format_setup(x[2:1], width = 10, focus = "a")
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame:
  #   1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x
    [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m     1
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 2[39m
  [90m#   more[39m
  [90m#   variables:[39m
  [90m#   a$y <dbl>,[39m
  [90m#   b <chr>[39m
Code
  tbl_format_setup(x, width = 30, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x    $y b          
    [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<chr>[39m[23m[24m      
  [90m1[39m     1     2 long enough
  [1m<tbl_format_footer(setup)>[22m
Code
  tbl_format_setup(x, width = 20, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x    $y b     
    [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<chr>[39m[23m[24m 
  [90m1[39m     1     2 long ~
  [1m<tbl_format_footer(setup)>[22m
Code
  tbl_format_setup(x, width = 15, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x b      
    [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<chr>[39m[23m[24m  
  [90m1[39m     1 long e~
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1 more[39m
  [90m#   variable:[39m
  [90m#   a$y <dbl>[39m
Code
  tbl_format_setup(x, width = 10, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame:
  #   1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
      a$x
    [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m     1
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 2[39m
  [90m#   more[39m
  [90m#   variables:[39m
  [90m#   a$y <dbl>,[39m
  [90m#   b <chr>[39m
Code
  tbl_format_setup(x[2:1], width = 30, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
    b             a$x    $y
    [4m[3m[90m<chr>[39m[23m[24m       [4m[3m[90m<dbl>[39m[23m[24m [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m long enough     1     2
  [1m<tbl_format_footer(setup)>[22m
Code
  tbl_format_setup(x[2:1], width = 20, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
    b             a$x
    [4m[3m[90m<chr>[39m[23m[24m       [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m long enough     1
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1 more[39m
  [90m#   variable:[39m
  [90m#   a$y <dbl>[39m
Code
  tbl_format_setup(x[2:1], width = 15, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame: 1 x
  #   2[39m
  [1m<tbl_format_body(setup)>[22m
    b         a$x
    [4m[3m[90m<chr>[39m[23m[24m   [4m[3m[90m<dbl>[39m[23m[24m
  [90m1[39m long e~     1
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1 more[39m
  [90m#   variable:[39m
  [90m#   a$y <dbl>[39m
Code
  tbl_format_setup(x[2:1], width = 10, focus = c("a", "b"))
Output
  [1m<pillar_tbl_format_setup>[22m
  [1m<tbl_format_header(setup)>[22m
  [90m# A data
  #   frame:
  #   1 x 2[39m
  [1m<tbl_format_body(setup)>[22m
    b       
    [4m[3m[90m<chr>[39m[23m[24m   
  [90m1[39m long en~
  [1m<tbl_format_footer(setup)>[22m
  [90m# i 1[39m
  [90m#   more[39m
  [90m#   variable:[39m
  [90m#   a <tbl[,2]>[39m


Try the pillar package in your browser

Any scripts or data that you put into this service are public.

pillar documentation built on March 31, 2023, 10:19 p.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close