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] |