Code
tibble(id = list.files(pattern = "\\.qmd$") %>% gsub(".qmd$", "", .)) %>%
filter(!(id == "index")) %>%
if (is_html_output()) mutate(., html = paste0("[html](",id, ".html)")) else .} %>%
{if (is_html_output()) print_table(.) else .} {
id | html |
---|---|
bop | [html] |
cpi_us | [html] |
cpi | [html] |
debt | [html] |
gdp | [html] |
gdpc | [html] |
gold_us | [html] |
phillips | [html] |
stock | [html] |
trade | [html] |
treasury | [html] |
unr | [html] |
xrates | [html] |