# NOT RUN {
# Use `exibble` to create a gt table;
# when adding a title, use the `html()`
# helper to use html formatting
tab_1 <-
  exibble %>%
  dplyr::select(currency, char) %>%
  gt() %>%
  tab_header(
    title = html("<em>HTML</em>"))
# }
Run the code above in your browser using DataLab