required_packs <- c("pdftools","readxl","pdfsearch","tidyverse","data.table","stringr","tidytext","dplyr","igraph","NLP","tm", "quanteda", "ggraph", "topicmodels", "lasso2", "reshape2", "FSelector")
new_packs <- required_packs[!(required_packs %in% installed.packages()[,"Package"])]
if(length(new_packs)) install.packages(new_packs)
i <- 1
for (i in 1:length(required_packs)) {
sapply(required_packs[i],require, character.only = T)
}
Produces a warning for each new package. I have tried sapply outside a loop as well and the same warnings appear.
Warning in if (!character.only) package <- as.character(substitute(package)) :
the condition has length > 1 and only the first element will be used