Rscriptを使用すると、非スクリプト出力を抑制する方法がありますか？

Question

可能性の重複：
R suppress startupMessages from dependency

私はsink("NUL")/sink("/dev/null")の使用について読んだが、それらのどちらも私がいる問題を修正しました。私はsink("NUL")とsink()でlibrary()コマンドをラップしている場合でも、Rscriptに私の呼び出しは、私が見たくない情報のすべての方法を出力します

Loading required package: Matrix 
Loading required package: methods 
Loading required package: lattice 
Loaded glmnet 1.8 

Loading required package: MASS 
Loading required package: lme4 

Attaching package: 'lme4' 

The following object(s) are masked from 'package:stats': 

    AIC, BIC 

Loading required package: R2WinBUGS 
Loading required package: coda 

Attaching package: 'coda' 

The following object(s) are masked from 'package:lme4': 

    HPDinterval 

Loading required package: abind 
Loading required package: foreign 

arm (Version 1.5-05, built: 2012-6-6) 

Working directory is C:/Users/andrews/bootstraps/user/_branches/ER-PoC/Bootstraps/R 


Attaching package: 'arm' 

The following object(s) are masked from 'package:coda': 

    traceplot 

[1] "client=51"   "date='01-01-2011'" 
[1] "01-01-2011" 
[1] 51 

最後のものは、私が実際にしたいだけ出力され、また、私はsink()コマンドで抑制することができた唯一の出力です。実際にはRscriptの引数があって、この出力を抑制する必要があるように思えます（これはコンソールの中に私のsourceスクリプトがあると表示されません）。

Answer 1

アンドリューは、私は同じことに走ったとsuppressMessages()は、すべての余分な出力を削除しますが、suppressMessages()作品に巻き付けcapture.output()の形でsink()を使用していませんでした。 Rmpfrパッケージをロードするときに何が起こっているか

$ rscript --vanilla -e 'library(Rmpfr)' 
Loading required package: methods 
Loading required package: gmp 
---->8---- 
Loading C code of R package 'Rmpfr': GMP using 32 bits per limb 
---->8---- 


$ rscript --vanilla -e 'suppressMessages(library(Rmpfr))' 
Loading C code of R package 'Rmpfr': GMP using 32 bits per limb 


$ rscript --vanilla -e 'msg.out <- capture.output(suppressMessages(library(Rmpfr)))' 

はoutput接続を使用してとても素敵ではないメッセージと一緒にmessage接続を使用して書かれたいくつかの行儀の起動メッセージです。確かに、自分でsink()を作成して操作することができますが、それはcapture.output()が既にセットアップされていることです。

おそらく、もう少しコントロールを取得するために、詳細な引数を設定することが参考になる::

$ cat sample.R 
#!/c/opt/R/R-2.15.0/bin/rscript --vanilla 

cmd_args <- commandArgs(TRUE); 

if(length(cmd_args) > 0) { 
    eval(parse(text = cmd_args[1])) 
} 

if(exists("verbose")) { 
    library(Rmpfr) 
} else { 
    msg.trap <- capture.output(suppressMessages(library(Rmpfr))) 
} 

print("Hello") 

得::あなたがそこで遊んで可能性のものの

$ ./sample.R 
[1] "Hello" 


$ ./sample.R "verbose=TRUE" 
Loading required package: methods 
Loading required package: gmp 

Attaching package: 'gmp' 
---->8---- 
[1] "Hello" 

多くを、しかしで少なくともmsg出力を完全に抑制する方法を見ることができます。

希望します。楽しむ！