通过正则表达式过滤的选择性suppressWarnings()

前端之家收集整理的这篇文章主要介绍了通过正则表达式过滤的选择性suppressWarnings()前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
为了生成在没有警告的情况下运行的代码,因此可以使用选项运行(warn = 2),我正在寻找一个suppressWarnings例程的实现,它只会过滤与给定(矢量)正则表达式匹配的警告.有些警告就像我所知,就像着名的警告一样

Unrecognized record type 7,subtype 18 encountered in system file

在阅读某些SPSS文件时,我想有选择地抑制它们,而不会影响其他可能的警告.

是否已经实现了此功能

解决方法

使用withCallingHandlers和invokeRestart抑制警告,使用上面提到的“muffleWarning”重启?警告

withCallingHandlers({
    x <- 0
    warning("Unrecognized record 123")
    x <- x + 1
    warning("another warning")
    x + 1
},warning = function(w) {
    if (startsWith(conditionMessage(w),"Unrecognized record"))
        invokeRestart("muffleWarning")
})

这有输出

[1] 2
Warning message:
In withCallingHandlers({ : another warning

(如果您希望停止警告,请使用tryCatch).正如@BenBolker提到的那样,它不处理翻译;制作更精细的正则表达式并不会令人满意.为了捕捉自己的警告,人们可以make and throw a subclass of warning.

猜你在找的正则表达式相关文章