# NOT RUN {
# Use `sza` to create a gt table; add a
# header and then add footnotes to the
# column labels with `tab_footnote()` and
# `cells_column_labels()` in `locations`
tab_1 <-
sza %>%
dplyr::filter(
latitude == 20 & month == "jan" &
!is.na(sza)
) %>%
dplyr::select(-latitude, -month) %>%
gt() %>%
tab_footnote(
footnote = "True solar time.",
locations = cells_column_labels(
columns = vars(tst)
)
) %>%
tab_footnote(
footnote = "Solar zenith angle.",
locations = cells_column_labels(
columns = vars(sza)
)
)
# }
Run the code above in your browser using DataLab