オプション値を変更して、警告を止めて戻して

suppressMessages関数で止まらなった気がするので、こんな感じで書いておいた。

warn.value <- as.numeric(options("warn"))
options(warn = -1)
#何かの処理
#......
options(warn = warn.value)

オプションの値の変更法のメモも兼ねる。