# NOT RUN {
# Use `gtcars` to create a gt table;
# add a source note to the table
# footer that cites the data source
tab_1 <-
gtcars %>%
dplyr::select(mfr, model, msrp) %>%
dplyr::slice(1:5) %>%
gt() %>%
tab_source_note(
source_note = "From edmunds.com"
)
# }
Run the code above in your browser using DataLab