r - 禁止发出任何特定警告消息

Question

我有一个源文件(以knitr格式)，其中包含使用特定字体系列的绘图。我想抑制警告消息

In grid.Call(L_textBounds, as.graphicsAnnot(x$label), ... : font family not found in Windows font database

library(ggplot2)

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

我知道我可以抑制脚本中的所有警告消息options(warn = -1)，并且我知道如何使用suppressWarnings。我还可以在 tryCatch 中包围特定 block 。

有没有办法只抑制整个文件上方的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 .