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)
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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.