Final practice session. What a long and winding road it’s been.

gt functions from module 05

From module 06

Suggestions for practice

Try out some of the opt_*() functions on the table below. Also, set a default table font using opt_table_font() and google_font(). Use info_google_fonts() to get the names of some of Google’s Fonts.

exibble %>%
  gt(rowname_col = "row", groupname_col = "group") %>%
  tab_header(title = "The title", subtitle = "The subtitle") %>%
  tab_source_note("A source note.") %>%
  tab_footnote(
    footnote = "A footnote",
    locations = cells_body(columns = 1, rows = 1)
  ) %>%
  tab_style(
    style = cell_fill(color = "#E5873A"),
    locations = cells_body(columns = char, rows = 1)
  )
The title
The subtitle
num char fctr date time datetime currency
grp_a
row_1 1.111e-011 apricot one 2015-01-15 13:35 2018-01-01 02:22 49.950
row_2 2.222e+00 banana two 2015-02-15 14:40 2018-02-02 14:33 17.950
row_3 3.333e+01 coconut three 2015-03-15 15:45 2018-03-03 03:44 1.390
row_4 4.444e+02 durian four 2015-04-15 16:50 2018-04-04 15:55 65100.000
grp_b
row_5 5.550e+03 NA five 2015-05-15 17:55 2018-05-05 04:00 1325.810
row_6 NA fig six 2015-06-15 NA 2018-06-06 16:11 13.255
row_7 7.770e+05 grapefruit seven NA 19:10 2018-07-07 05:22 NA
row_8 8.880e+06 honeydew eight 2015-08-15 20:20 NA 0.440
A source note.

1 A footnote