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 .} {