# 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