# 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