# NOT RUN {
# Use `gtcars` to create a gt table;
# add a header part to contain a title
# and subtitle
tab_1 <-
gtcars %>%
dplyr::select(mfr, model, msrp) %>%
dplyr::slice(1:5) %>%
gt() %>%
tab_header(
title = md("Data listing from **gtcars**"),
subtitle = md("`gtcars` is an R dataset")
)
# }
Run the code above in your browser using DataLab