特定の警告メッセージの放出を抑制する

Question

特定のフォントファミリを使用するプロットを含むソースファイル（knitr）があります。私は警告メッセージ

grid.Call（L_textBoundsで、as.graphicsAnnot（Xの$ラベル）を抑制したいのですが、...：フォント ファミリは、Windowsのフォントデータベース内に見つからない

library(ggplot2) 

ggplot(mtcars, aes(mpg, cyl, label = gear)) + 
    geom_text(family = "helvet") 

私は、スクリプトoptions(warn = -1)に、すべての警告メッセージを抑制することができます知っている、と私はsuppressWarningsを使用する方法を知っている。私もtryCatchで特定のチャンクを囲むことができます。

suppresする方法があります唯一のgrid.Call上記の警告全体ファイルですか？例えば

Answer 1

使用

withCallingHandlers({ 
    <your code> 
}, warning=function(w) { 
    if (<your warning>) 
     invokeRestart("muffleWarning") 
}) 

、

x = 1 
withCallingHandlers({ 
    warning("oops") 
    warning("my oops ", x) 
    x 
}, warning=function(w) { 
    if (startsWith(conditionMessage(w), "my oops")) 
     invokeRestart("muffleWarning") 
}) 

出力

[1] 1 
Warning message: 
In withCallingHandlers({ : oops 
> 

制限はconditionMessageは基底関数からの場合は特に（他の言語に翻訳することができることである生成）、テキストが確実に識別されないようにします。

Selective suppressWarnings() that filters by regular expressionを参照してください。