Code
Z1_csv_var |>
group_by(table, table_desc) |>
summarise(Nobs = n()) %>%
filter((table %in% (list.files(pattern = "\\.qmd$") %>% gsub(".qmd$", "", .)))) |>
mutate(html = paste0('<a target=_blank href=https://fgeerolf.com/data/frb/', table, '.html > html </a>')) |>
mutate(frb = paste0('<a target=_blank href=https://www.federalreserve.gov/releases/z1/20210610/html/', table, '.htm > frb </a>')) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}


