r-恢复图形参数时的警告

Question

我正在编写我的第一个R包，目前正在开发一个函数，以使用一些特定的图形参数进行绘图。我希望用户定义的图形参数在绘制后得到恢复，但总是得到相同的警告消息：

opar <- par()
par(oma = c(5, 4, 0, 0) + 0.1, mar = c(0, 0, 1, 1) + 0.1)
par(opar)

警告消息：
1:In par(opar(：无法设置图形参数"cin">
2:In par(opar设置

有更好的方法吗？我知道suppressWarnings()函数，但知道1。我不希望消息被隐藏和2。如果该函数被调用两次，则会显示一条警告消息：

> There were 12 warnings (use warnings() to see them)

Answer 1

保存图形参数时，您可以通过提供no.readonly = TRUE来绕过这些警告，如下所示：

opar <- par(no.readonly = TRUE)
par(oma = c(5, 4, 0, 0) + 0.1, mar = c(0, 0, 1, 1) + 0.1)
par(opar)

此外，还可以使用dev.off()恢复默认的par参数值。

希望能有所帮助。

Answer 2

我的评论中的...只是一个占位符，用于放置您想要放置的内容。(我倾向于认为注释中的许多代码可能很难阅读，所以我只是缩短了它。(

字面意思：

opar <- par(oma = c(5, 4, 0, 0) + 0.1, mar = c(0, 0, 1, 1) + 0.1)
# other code that uses those settings
# when you are ready to reset to the original settings for oma and mar,
par(opar)

这在文档?par中的类似示例中提供。

这样做与用opar <- par(no.readonly=TRUE)保存所有par参数不同的一个例子是，这只会重置/恢复显式更改的参数。其他人可能会因为其他行动的副作用而发生变化，这是可行的(在意图之外(。