code/get_rmd_dependencies.R

In DataScienceILC/tlsc-dsfb26v-20_workflows: Bookdown site for workflows course

library(tidyverse)

get_dependencies <- function(){

library(tidyverse)

all_rmd <- list.files(path = ".",
                      recursive = TRUE,
                      full.names = TRUE,
                      pattern = ".Rmd")


## dummy:
path = all_rmd

get_rmd_dependencies <- function(path){

  reqlibs = sub(".*library\\(\"(.*?)\"\\).*","\\1",
              grep("library\\(",
                   readLines(path),
                   value=TRUE))

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                             pattern = "library\\(",
                             replacement = "")
  reqlibs <- stringr::str_replace_all(string = reqlibs,
                             pattern = "\\)",
                             replacement = "")

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                                      pattern = "#",
                                      replacement = "")

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                                      pattern = " ",
                                      replacement = "")

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                                      pattern = "`",
                                      replacement = "")

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                                      pattern = "'",
                                      replacement = "")

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                                      pattern = "suppressWarnings.*",
                                      replacement = "")

  reqlibs <- stringr::str_replace_all(string = reqlibs,
                                      pattern = "suppressWarnings.*",
                                      replacement = "")




  reqlibs


}

purrr::map(all_rmd, get_rmd_dependencies)

packages <- map(as.list(all_rmd), get_rmd_dependencies) %>%
  unlist() %>%
  unique() %>%
  trimws()

return(packages)

}



get_dependencies() %>%
  enframe() %>%
  arrange(value) -> dependencies


write_lines(dependencies$value, file = "DEPENDENCIES.txt")

## install all dependencies
#walk(
#  .x = dependencies$value,
#  .f = pacman::p_install
#)