Code
%>%
INDICATOR filter(INDICATOR %in% gsub(".qmd$", "", list.files(pattern = "\\.qmd$"))) %>%
mutate(html = paste0('<a target=_blank href=', INDICATOR, '.html > html </a>')) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {