获取目录中所有.Rmd文件中加载的所有软件包的列表

Question

假设我在~/directory1/中有2个（或任意数量的）.Rmd文件。在每个文件中，我都使用library(packagename)加载了多个R包。如何获得包含所有这些文件中加载的所有唯一软件包名称的字符向量？

Answer 1

#setwd(~/directory1/)
libs = lapply(list.files(pattern = "\\.Rmd$"),
              function(x){
                  d = readLines(x)
                  d = d[grepl("library\\(.*\\)", d)]
                  gsub("library\\((.*)\\)", "\\1", d)
              })
unique(unlist(libs))