[Loop through Rd files] #R

map on Rd files.R

# Load packages -----------------------------------------------------------


library(tidyverse)

# Path where all Rd files live --------------------------------------------

man_path <-
  here::here("man")

# Create a list of all Rd files with full file paths ----------------------

rd_chr <-
  dir(man_path) %>%
  .[grepl(pattern = "Rd$", x = .)]
  

man_files <-
  rd_chr %>%
  paste0(man_path, "/", .)


# Return a list of Rd content from each file ------------------------------

rd_list <-
  man_files %>%
  purrr::map(function(x){
    
    readLines(x) %>%
      paste(collapse = "")
    
  }) %>%
  set_names(rd_chr)

# If \value does not exist, return function -------------------------------

names(rd_list[!grepl(pattern = "\\\\value", x = rd_list)])