A simple function for installing R packages based on a folder with R scripts

[This article was first published on R and Finance, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Whenever I buy a new computer or format an old one, I have the problem of reinstalling my R packages. If you are a heavy user, you will likely have a significant amount of packages used by your scripts. When you try to run a script in a fresh install of R, it will tell you that you don’t have the proper packages installed. Needless to say that manually installing them is boring.

I’ve found a very simple solution to this problem. I wrote a function that takes as input a folder in the computer and searches for all .R and .Rmd files in all subfolders. It then reads each one and finds all occurrences of library(pkgnamehere) and require(pkgnamehere). It proceeds by checking if the package is locally available and, if not, installs it from CRAN. I’m not sure if this is a new solution but, if you find it interesting and worthy of a CRAN package, let me know in the comment sections. I’m sure I can significantly improve it.

So, whenever I have a fresh computer, I just run the following script:


#install.packages('stringr')

#folder.in <- 'C:/Dropbox/' # windows
folder.in <- '/home/msperlin/Dropbox' # linux 

reinstall.pkgs(folder.in)

and all necessary packages are installed. The needed functions are given next:

reinstall.pkgs <- function(folder.in) {
  my.pattern <- '\\.R$|\\.Rmd'
  
  target.files <- list.files(path = folder.in, pattern = my.pattern  , recursive = T, full.names = T)
  
  all.pkgs <- unlist(sapply(X = target.files, FUN = find.pkgs, USE.NAMES = F))
  all.pkgs <- unique(all.pkgs)
  
  out <- sapply(X = all.pkgs, FUN = check.install.pkgs)
  
  return(TRUE)
}

find.pkgs <- function(str.in){
  
  require(stringr)
  
  txt.out <- paste(readLines(str.in), collapse = '\n')
  
  out.req.1 <- str_match_all(txt.out, pattern = 'require\\(\"(.*?)\"\\)')[[1]]
  out.req.2 <- str_match_all(txt.out, pattern = 'require\\((.*?)\\)')[[1]]
  
  pkg.out.require <- as.vector(c(out.req.1[,2], out.req.2[,2]))
  
  out1 <- str_match_all(txt.out, pattern = 'library\\(\"(.*?)\"\\)')[[1]]
  out2 <- str_match_all(txt.out, pattern = 'library\\((.*?)\\)')[[1]]
  pkg.out.library <- as.vector(c(out1[,2], out2[,2]))
  
  pkg.out <- c(pkg.out.require, pkg.out.library)
  
  pkg.out <- str_replace_all(pkg.out, pattern = fixed("'"), replacement = '' )

  return(pkg.out)
}

check.install.pkgs <- function(pkg.in){
  cat('\nInstalling', pkg.in)
  
  my.installed.pkgs <- installed.packages()
  
  if ( !(pkg.in %in% my.installed.pkgs[,1]) ){
    cat('- Installing', pkg.in)
    install.packages(pkg.in)
  } else { cat('- Already installed')}
  
}

To leave a comment for the author, please follow the link and comment on their blog: R and Finance.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)