获取目录中所有.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))