如何在我创建的函数中导入多个R包？

Question

我有这个功能，它的目的是安装和加载几个包，以便一次性运行整个脚本。但从我所看到的情况来看，这些包只是每隔一次才加载一次，有时函数只是安装它们而不加载。我该如何解决这个问题呢？提前感谢您的回复。

install_load_packages=function(packages){
  install.packages(c("data.table","rentrez","worms","bold","stringr","readr","fingerprint","seqRFLP","dplyr","ggplot2"))
  library(seqRFLP)
  library(bold)
  library(data.table)
  library(rentrez)
  library(worms)
  library(stringr)
  library(readr)
  library(fingerprint)
  library(dplyr)
  library(ggplot2)
}
install_load_packages(packages)

Answer 1

如果你想自己编写代码，你可以使用下面这样的代码：

load.libraries <- c("data.table","rentrez","worms","bold","stringr","readr","fingerprint","seqRFLP","dplyr","ggplot2")
install.lib <- load.libraries[!load.libraries %in% installed.packages()]
for(libs in install.lib) install.packages(libs, dependences = TRUE)
sapply(load.libraries, require, character = TRUE)

如果你更喜欢使用pacman包(正如我推荐的那样)，你可以这样使用它：

if (!require("pacman")) install.packages("pacman")
packages <- c("data.table","rentrez","worms","bold","stringr","readr","fingerprint","seqRFLP","dplyr","ggplot2")
pacman::p_load(char = packages)