library(tidyverse)
library(gt)
mpg %>%
sample_n(10) %>%
select(manufacturer, model, displ, cty, hwy, year) %>%
gt() %>%
tab_footnote(
footnote = "This is old car",
locations = cells_body(columns = model,
rows = year < 2000)
) %>%
cols_hide(columns = year) %>%
fmt_markdown(columns = model)