Code
tibble(id = list.files(pattern = "\\.qmd$") %>% gsub(".qmd$", "", .)) |>
filter(!(id == "index")) %>%
mutate(Title = read_lines(paste0(id, ".qmd"), skip = 1, n_max = 1) %>% gsub("title: ", "", .)) %>%
{if (is_html_output()) mutate(., html = paste0("[html](",id, ".html)")) else .} %>%
{if (is_html_output()) print_table(.) else .}| id | Title | html |
|---|---|---|
| chiffres_cle_du_logement_2022 | Chiffres clés du logement - Édition 2022 - chiffres_cle_du_logement_2022 | [html](chiffres_cle_du_logement_2022.html) |
| DPE | Diagnostic de Performance Energetique - DPE | [html](DPE.html) |
| parc_logements_dpe_2022 | Le parc de logements par classe de performance énergétique au 1er janvier 2022 - parc_logements_dpe_2022 | [html](parc_logements_dpe_2022.html) |
Données - MTES