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 |