quantmod警告メッセージを無効にする

Question

quantmodを使用して、ループを使用して大量の在庫を分析しようとしました。問題はヤフーに必要なすべての株価データがあるかどうかわからないため、ダウンロードに失敗したときにエラーをスキップするようにRをプログラムしようとしていましたが、警告メッセージをオフにすることができません。通常の図書館の立ち上げ後、私はこれをして取得します：

> options(show.error.messages = FALSE) 
> getSymbols("gewg", warnings = FALSE) 
Warning message: 
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m, : 
    cannot open: HTTP status was '404 Not Found'` 

なぜこのようなことが起こっているのでしょうか？

EDIT： 私はそれをテストするために使用されるコードが含まれていましたし、のみ注1現れると注2は表示されません見ることができるように。私はa2の作業ティッカーでそれを試して、NOTE1とNOTE2の両方が表示されます。

> tester2 <- function(){ 
+ tester <- function() { 
+ a <- getSymbols("GOOG", auto.assign = FALSE) 
+ cat("NOTE1") 
+ a2 <- getSymbols("JWEGOWN", auto.assign = FALSE) 
+ cat("NOTE2") 
+ a3 <- getSymbols("GS", auto.assign = FALSE) 
+ return(a3) 
+ } 
+ return(try(tester(), TRUE)) 
+ } 
> af <- tester2() 
NOTE1Warning message: 
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m, : 
    cannot open: HTTP status was '404 Not Found' 
> 

Answer 1

標準的な方法は、tryを使用することです。これは、（tryのドキュメントからの例）のようになります。resで

set.seed(123) 
x <- stats::rnorm(50) 
doit <- function(x) 
{ 
    x <- sample(x, replace=TRUE) 
    if(length(unique(x)) > 30) mean(x) 
    else stop("too few unique points") 
} 
## alternative 1 
res <- lapply(1:100, function(i) try(doit(x), TRUE)) 

結果は、今通常の出力、またはクラスtry-errorのオブジェクトのいずれかを示しています。リストを組み合わせることで、使用して行うことができます。

# Replace the errors by `NULL` 
res2 = lapply(res, 
    function(x) 
    if(!inherits(x, "try-error")) 
     return(x) 
    else 
     return(NULL)) 
resfinal = do.call("c", res2) 

resfinalは今、失敗しなかっただけの結果とリストです。