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](bop.html) |
| cpi_us | [html](cpi_us.html) |
| cpi | [html](cpi.html) |
| debt | [html](debt.html) |
| gdp | [html](gdp.html) |
| gdpc | [html](gdpc.html) |
| gold_us | [html](gold_us.html) |
| phillips | [html](phillips.html) |
| stock | [html](stock.html) |
| trade | [html](trade.html) |
| treasury | [html](treasury.html) |
| unr | [html](unr.html) |
| xrates | [html](xrates.html) |