~/data/

Summary

tibble(id = list.files(pattern = "\\.Rmd$") %>% gsub(".Rmd$", "", .)) %>%
  filter(!(id == "index")) %>%
  mutate(Title = read_lines(paste0(id, ".Rmd"), 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
DPE Diagnostic de Performance Energetique - DPE html