コマンドラインから実行しているRの中で、スクリプトはどのようにして自分自身を見つけることができますか？

Question

私はそれを実行したときに自分自身を見つけるために、次のコードを持っているスクリプト（Main.Rそれを呼び出す）があります。

frame_files <- lapply(sys.frames(), function(x) x$ofile) 
frame_files <- Filter(Negate(is.null), frame_files) 
main.dir <- dirname(dirname(frame_files[[length(frame_files)]])) 

がこれを呼び出すために使用されている独自のディレクトリ、main.dir、上記のディレクトリを取得するために使用されますこのパスに関連する他のスクリプト

私は、コマンドからスクリプトを呼び出したときに、たとえば

R CMD BATCH Main.R 

または

Rscript Main.R 

残念ながら、上記のコマンドは動作しません。私は、コマンドラインからこのスクリプトを実行するに興味がありますライン。

Main.Rに入れることのできるコードはありますか、代わりにRまたはRscriptというコールオプションを使用できますか？

具体的には、ソリューションはWindowsで動作する必要があります。アイデアに

Answer 1

を読み取るためのコードを追加するスクリプトがsourceまたはのいずれかで実行されたときに、あなたに正しいファイル・ディレクトリのパスを与えるソリューションです。 Rscript。

# this is wrapped in a tryCatch. The first expression works when source executes, the 
# second expression works when R CMD does it. 
full.fpath <- tryCatch(normalizePath(parent.frame(2)$ofile), # works when using source 
       error=function(e) # works when using R CMD 
        normalizePath(unlist(strsplit(commandArgs()[grep('^--file=', commandArgs())], '='))[2])) 
dirname(full.fpath) 

このキーは、機能normalizePathです。相対パス名または短縮パス名を指定すると、normalizePathは有効なパスを返すか、エラーを発生させます。 Rscriptからスクリプトを実行するときに、normalizePathに現在のスクリプトのベースファイル名を指定すると、現在のディレクトリに関係なくフルパスが返されます。 R CMDへの相対パスを指定すると、現在のディレクトリに同じ名前のスクリプトがある場合でも、パスを取得できます。

上記のコードでは、commandArgsによって返された文字列の1つからファイル名を抽出します。 commandArgsの出力を見ると、ファイル名が第4引数であることがわかります。引数は '--file = yourscript.R'として記録されているので、上の最後の行で '='に文字列を分割してファイル名を取り出します。

Answer 2

は、私はあなたがRScriptでそれを呼び出すと仮定し、あなたのMain.R

の引数としてパスを与えることです。あなたのMain.Rで

Rscript Main.R 'path' 

あなたは、引数以下

args <- commandArgs(trailingOnly = TRUE) 
mainpath <- as.character(args[1])