を使用して、コマンド ライン引数を処理する別の方法を次に示しR CMD BATCH
ます。ここでの以前の回答に基づいた私のアプローチでは、コマンド ラインで引数を指定し、R スクリプトでそれらの一部またはすべてに既定値を指定できます。
ここに、 test.Rという名前の R ファイルがあります。
defaults <- list(a=1, b=c(1,1,1)) ## default values of any arguments we might pass
## parse each command arg, loading it into global environment
for (arg in commandArgs(TRUE))
eval(parse(text=arg))
## if any variable named in defaults doesn't exist, then create it
## with value from defaults
for (nm in names(defaults))
assign(nm, mget(nm, ifnotfound=list(defaults[[nm]]))[[1]])
print(a)
print(b)
コマンド ラインで次のように入力すると、
R CMD BATCH --no-save --no-restore '--args a=2 b=c(2,5,6)' test.R
次に、R 内にa
=2
とb
=がありc(2,5,6)
ます。しかし、たとえば、 を省略b
して、別の引数を追加することもできc
ます。
R CMD BATCH --no-save --no-restore '--args a=2 c="hello"' test.R
次に、R にはa
= 2
、b
= c(1,1,1)
(デフォルト)、およびc
=があり"hello"
ます。
最後に、便宜上、環境に注意している限り、R コードを関数でラップできます。
## defaults should be either NULL or a named list
parseCommandArgs <- function(defaults=NULL, envir=globalenv()) {
for (arg in commandArgs(TRUE))
eval(parse(text=arg), envir=envir)
for (nm in names(defaults))
assign(nm, mget(nm, ifnotfound=list(defaults[[nm]]), envir=envir)[[1]], pos=envir)
}
## example usage:
parseCommandArgs(list(a=1, b=c(1,1,1)))