# NOT RUN {
# Use `exibble` to create a gt table;
# attempting to modify the fonts used
# for the `time` column is much safer
# if `default_fonts()` is appended to
# the end of the `font` listing in the
# `cell_text()` call (the "Comic Sansa"
# and "Menloa" fonts don't exist, but,
# we'll get the first available font
# from the `default_fonts()` set)
tab_1 <-
exibble %>%
dplyr::select(char, time) %>%
gt() %>%
tab_style(
style = cell_text(
font = c(
"Comic Sansa", "Menloa",
default_fonts()
)
),
locations = cells_body(columns = vars(time))
)
# }
Run the code above in your browser using DataLab