引数としてパッケージ名を渡すR

Question

私は他人のコードを試したり、例を実行しなければならないときは、特にinstall.package関数を多く使用しています。

私はパッケージをインストールして読み込む関数を書いています。私は次のことを試してみましたが、それはうまくいきませんでした：

inp <- function(PKG) 
{ 
    install.packages(deparse(substitute(PKG))) 
    library(deparse(substitute(PKG))) 
} 

私はinp(data.table)を入力すると、それは私がこのケースでは、引数としてライブラリ名を渡すん

Error in library(deparse(substitute(PKG))) : 
    'package' must be of length 1 

どのように言いましたか？ Rの関数の引数として、あらゆる種類のオブジェクトを渡すことに関する情報に誰かを案内することができれば、私は感謝します。

Answer 1

library()は、デフォルトでは、文字またはの最初の引数として受け入れるため、エラーが発生しています。その最初の引数にdeparse(substitute(PKG))があり、それが見つかるとその名前のパッケージが見つかりません。

library()に文字列を最初の引数として期待するように設定するcharacter.only=TRUEを設定すると、問題を修正する必要があります。これを試してみてください：

f <- function(PKG) { 
    library(deparse(substitute(PKG)), character.only=TRUE) 
} 

## Try it out 
exists("ddply") 
# [1] FALSE 
f(plyr) 
exists("ddply") 
# [1] TRUE