R 启动时加载包

我试图在启动时加载一个已经安装的包。如果不是，那么我想先安装它，然后再加载它。因此，我创建了以下函数：

RLoadPackage <- function(packname)
{
  if((packname %in% rownames(installed.packages()))==FALSE)
  {
    install.packages(packname,dependencies = TRUE)
  } 
  library(packname,character.only = TRUE)
}

一种选择是手动安装软件包，然后添加一组

库（“xyz”）

然而，上面的选项非常笨拙。所以，我创建了一个函数

我有两个问题：

1）有人能帮我吗？

2）有没有更有效的方法

我的帖子灵感来自以下两个链接： 1) (二)

我非常感谢你的帮助

---

谢谢

好的。这段代码可以工作：

library("utils")

RLoadPackage <- function(packname)
{
  if((packname %in% rownames(installed.packages()))==FALSE)
  {
    install.packages(packname,dependencies = TRUE)
  } 
  library(packname,character.only = TRUE)
}

RLoadPackage("ggplot2")
RLoadPackage("dplyr")
RLoadPackage("lubridate")

库（“utils”）
RLoadPackage签出
帮助（“.First”）
@richardscriven和Shayaa——我相信我读到了你的心思！我只是认为R是顺序处理函数。所以，我先定义了这个函数，然后它就开始工作了。然而，我正在寻找更高效的代码——如果您知道任何加载10-15个包并执行我尝试执行的操作的方法的话。非常感谢您的帮助。您的“错误：找不到函数…”不是仅仅因为您在定义
RLoadPackage
之前调用
RLoadPackage（“ggplot2”）
吗？是的！这是正确的
Error: could not find function "RLoadPackage"

library("utils")

RLoadPackage <- function(packname)
{
  if((packname %in% rownames(installed.packages()))==FALSE)
  {
    install.packages(packname,dependencies = TRUE)
  } 
  library(packname,character.only = TRUE)
}

RLoadPackage("ggplot2")
RLoadPackage("dplyr")
RLoadPackage("lubridate")