从字符串中加载R包

Question

我想创建一个函数，其中包括加载函数内的一个包。一个简短的例子（不运行！）：

loadMe <- function(name){ 
    genLib(xxx, libName = name) #make a new library with name "name" 
    library(name)    #load the new library... 
} 

这是行不通的！可重复的代码有点这说明我的主要问题：

library(ggplot)   #this works fine 
load.this <- "ggplot" 
library(load.this)  #I want this to load ggplot! 

我知道这个问题是library()和require()当作参数，其尚不存在的对象名称。我已经试过包装我的字符串，parse()，deparse()，substitute()，expression()，quote()，等等等等，这些都返回了同样的问题：

library(load.this) 
# Error in library(loadss) : there is no package called 'loadss' 
library(deparse(load.this)) 
# Error in library(deparse(loadss)) : 'package' must be of length 1 

有没有办法做到这一点？

Answer 1

使用character.only参数

foo <- "ggplot2" 
library(foo,character.only=TRUE) 

Answer 2

你说，你已经使用parse()尝试。以下内容似乎适用于我：

eval(parse(text = 'library(MASS)')[1])