# NOT RUN {
# Use `sp500` to create a gt table; add
# a header with a title, and then add a
# footnote to the title with `tab_footnote()`
# and `cells_title()` (in `locations`)
tab_1 <-
sp500 %>%
dplyr::filter(
date >= "2015-01-05" &
date <="2015-01-10"
) %>%
dplyr::select(
-c(adj_close, volume, high, low)
) %>%
gt() %>%
tab_header(title = "S&P 500"
) %>%
tab_footnote(
footnote = "All values in USD.",
locations = cells_title(groups = "title")
)
# }
Run the code above in your browser using DataLab