從字符串中加載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])