inst/rmarkdown/templates/check_files_titles.R

In inbo/protocolshelper: Helper Functions to Manage Protocols

library(fs)
library(stringr)

chapters <- fs::dir_ls(path = file.path("./inst/rmarkdown/templates"),
           all = FALSE,
           recurse = TRUE,
           type = "file",
           regexp = "\\d{2}_")


rmd_md_files <- fs::dir_ls(path = file.path("./inst/rmarkdown/templates"),
                       all = FALSE,
                       recurse = TRUE,
                       type = "file",
                       regexp = "md$")

titles <- purrr::map_chr(chapters, function(x) {
  x <- readLines(x)
  x[[1]]
})

compare <- data.frame(
  path = unname(chapters),
  chapter_file = fs::path_file(chapters),
  titles = unname(titles))
View(compare)

library(commonmark)
library(xml2)

headings <- purrr::map_dfr(chapters, function(x) {
  xx <- readLines(x)
  xml <- markdown_xml(xx)
  xml <- read_xml(xml)
  all_headings <- xml_find_all(xml,
                               xpath = ".//d1:heading")
  headings_level <- xml_attr(all_headings, "level")
  headings_text <- xml_text(all_headings)
  tibble::tibble(file = x,
             level = headings_level,
             text = headings_text)
})

library(dplyr)
library(tidyr)
headings <- headings %>%
  separate(col = file,
           into = c("c0", "c1", "c2", "c3", "template", "c4", "filename"),
           sep = "/") %>%
  select(-starts_with("c")) %>%
  mutate(template = str_remove(template, "template_"),
         filename = str_remove(filename, "\\.Rmd")) %>%
  separate(template, c("template_type", "template_lang"))