count: false .panel1-the_chunk-auto[ ```r *library(gt) ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ```r library(gt) *example ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 8 x 9 weight fruit team holiday schedule appointment price id club <dbl> <chr> <fct> <chr> <chr> <chr> <dbl> <chr> <chr> 1 1.11e-1 apricot one 2015-01… 13:35 2018-01-01 0… 50.0 row_1 grp_a 2 2.22e+0 banana two 2015-02… 14:40 2018-02-02 1… 18.0 row_2 grp_a 3 3.33e+1 coconut three 2015-03… 15:45 2018-03-03 0… 1.39 row_3 grp_a 4 4.44e+2 durian four 2015-04… 16:50 2018-04-04 1… 65100 row_4 grp_a 5 5.55e+3 <NA> five 2015-05… 17:55 2018-05-05 0… 1326. row_5 grp_b 6 NA fig six 2015-06… <NA> 2018-06-06 1… 13.3 row_6 grp_b 7 7.77e+5 grapefr… seven <NA> 19:10 2018-07-07 0… NA row_7 grp_b 8 8.88e+6 honeydew eight 2015-08… 20:20 <NA> 0.44 row_8 grp_b ``` ] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% * .[1:5, ] ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 5 x 9 weight fruit team holiday schedule appointment price id club <dbl> <chr> <fct> <chr> <chr> <chr> <dbl> <chr> <chr> 1 0.111 apricot one 2015-01-15 13:35 2018-01-01 02:… 5.00e1 row_1 grp_a 2 2.22 banana two 2015-02-15 14:40 2018-02-02 14:… 1.80e1 row_2 grp_a 3 33.3 coconut three 2015-03-15 15:45 2018-03-03 03:… 1.39e0 row_3 grp_a 4 444. durian four 2015-04-15 16:50 2018-04-04 15:… 6.51e4 row_4 grp_a 5 5550 <NA> five 2015-05-15 17:55 2018-05-05 04:… 1.33e3 row_5 grp_b ``` ] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% * gt() ``` ] .panel2-the_chunk-auto[
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.1111
apricot
one
2015-01-15
13:35
2018-01-01 02:22
49.95
row_1
grp_a
2.2220
banana
two
2015-02-15
14:40
2018-02-02 14:33
17.95
row_2
grp_a
33.3300
coconut
three
2015-03-15
15:45
2018-03-03 03:44
1.39
row_3
grp_a
444.4000
durian
four
2015-04-15
16:50
2018-04-04 15:55
65100.00
row_4
grp_a
5550.0000
NA
five
2015-05-15
17:55
2018-05-05 04:00
1325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% * fmt_number(columns = vars(weight), * decimals = 2) ``` ] .panel2-the_chunk-auto[
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35
2018-01-01 02:22
49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40
2018-02-02 14:33
17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45
2018-03-03 03:44
1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50
2018-04-04 15:55
65100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55
2018-05-05 04:00
1325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% * fmt_date(columns = vars(holiday), * date_style = 1) ``` ] .panel2-the_chunk-auto[
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35
2018-01-01 02:22
49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40
2018-02-02 14:33
17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45
2018-03-03 03:44
1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50
2018-04-04 15:55
65100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55
2018-05-05 04:00
1325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% fmt_date(columns = vars(holiday), date_style = 1) %>% * fmt_time(columns = vars(schedule), * time_style = 1) ``` ] .panel2-the_chunk-auto[
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35:00
2018-01-01 02:22
49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40:00
2018-02-02 14:33
17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45:00
2018-03-03 03:44
1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50:00
2018-04-04 15:55
65100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55:00
2018-05-05 04:00
1325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% fmt_date(columns = vars(holiday), date_style = 1) %>% fmt_time(columns = vars(schedule), time_style = 1) %>% * fmt_datetime(columns = vars(appointment), * date_style = 6, * time_style = 4) ``` ] .panel2-the_chunk-auto[
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35:00
Jan 1, 2018 2:22 AM
49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40:00
Feb 2, 2018 2:33 PM
17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45:00
Mar 3, 2018 3:44 AM
1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50:00
Apr 4, 2018 3:55 PM
65100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55:00
May 5, 2018 4:00 AM
1325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% fmt_date(columns = vars(holiday), date_style = 1) %>% fmt_time(columns = vars(schedule), time_style = 1) %>% fmt_datetime(columns = vars(appointment), date_style = 6, time_style = 4) %>% * fmt_currency(columns = vars(price), * currency = "EUR") ``` ] .panel2-the_chunk-auto[
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35:00
Jan 1, 2018 2:22 AM
€49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40:00
Feb 2, 2018 2:33 PM
€17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45:00
Mar 3, 2018 3:44 AM
€1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50:00
Apr 4, 2018 3:55 PM
€65,100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55:00
May 5, 2018 4:00 AM
€1,325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% fmt_date(columns = vars(holiday), date_style = 1) %>% fmt_time(columns = vars(schedule), time_style = 1) %>% fmt_datetime(columns = vars(appointment), date_style = 6, time_style = 4) %>% fmt_currency(columns = vars(price), currency = "EUR") %>% * tab_header( * title = md("This is the `exibble` dataset in **gt**"), * subtitle = "It is one of six datasets in the package" * ) ``` ] .panel2-the_chunk-auto[
This is the
exibble
dataset in
gt
It is one of six datasets in the package
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35:00
Jan 1, 2018 2:22 AM
€49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40:00
Feb 2, 2018 2:33 PM
€17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45:00
Mar 3, 2018 3:44 AM
€1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50:00
Apr 4, 2018 3:55 PM
€65,100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55:00
May 5, 2018 4:00 AM
€1,325.81
row_5
grp_b
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% fmt_date(columns = vars(holiday), date_style = 1) %>% fmt_time(columns = vars(schedule), time_style = 1) %>% fmt_datetime(columns = vars(appointment), date_style = 6, time_style = 4) %>% fmt_currency(columns = vars(price), currency = "EUR") %>% tab_header( title = md("This is the `exibble` dataset in **gt**"), subtitle = "It is one of six datasets in the package" ) %>% * tab_source_note(source_note = * md("More information is available at `?exibble`.")) ``` ] .panel2-the_chunk-auto[
This is the
exibble
dataset in
gt
It is one of six datasets in the package
weight
fruit
team
holiday
schedule
appointment
price
id
club
0.11
apricot
one
2015-01-15
13:35:00
Jan 1, 2018 2:22 AM
€49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40:00
Feb 2, 2018 2:33 PM
€17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45:00
Mar 3, 2018 3:44 AM
€1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50:00
Apr 4, 2018 3:55 PM
€65,100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55:00
May 5, 2018 4:00 AM
€1,325.81
row_5
grp_b
More information is available at
?exibble
.
] --- count: false .panel1-the_chunk-auto[ ```r library(gt) example %>% .[1:5, ] %>% gt() %>% fmt_number(columns = vars(weight), decimals = 2) %>% fmt_date(columns = vars(holiday), date_style = 1) %>% fmt_time(columns = vars(schedule), time_style = 1) %>% fmt_datetime(columns = vars(appointment), date_style = 6, time_style = 4) %>% fmt_currency(columns = vars(price), currency = "EUR") %>% tab_header( title = md("This is the `exibble` dataset in **gt**"), subtitle = "It is one of six datasets in the package" ) %>% tab_source_note(source_note = md("More information is available at `?exibble`.")) %>% * tab_spanner(label = "Dates and Times", * columns = matches("schedule|appointment")) ``` ] .panel2-the_chunk-auto[
This is the
exibble
dataset in
gt
It is one of six datasets in the package
weight
fruit
team
holiday
Dates and Times
price
id
club
schedule
appointment
0.11
apricot
one
2015-01-15
13:35:00
Jan 1, 2018 2:22 AM
€49.95
row_1
grp_a
2.22
banana
two
2015-02-15
14:40:00
Feb 2, 2018 2:33 PM
€17.95
row_2
grp_a
33.33
coconut
three
2015-03-15
15:45:00
Mar 3, 2018 3:44 AM
€1.39
row_3
grp_a
444.40
durian
four
2015-04-15
16:50:00
Apr 4, 2018 3:55 PM
€65,100.00
row_4
grp_a
5,550.00
NA
five
2015-05-15
17:55:00
May 5, 2018 4:00 AM
€1,325.81
row_5
grp_b
More information is available at
?exibble
.
] <style> .panel1-the_chunk-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-the_chunk-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-the_chunk-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> <style type="text/css"> .remark-code{line-height: 1.5; font-size: 75%} @media print { .has-continuation { display: block; } } code.r.hljs.remark-code{ position: relative; overflow-x: hidden; } code.r.hljs.remark-code:hover{ overflow-x:visible; width: 500px; border-style: solid; } </style>