R：避免意外覆盖变量答案

【问题标题】：R: Avoid accidently overwriting variablesR：避免意外覆盖变量
【发布时间】：2014-03-21 15:15:09
【问题描述】：

有什么方法可以在命名空间的 R 中定义一个变量，这样它就不会被覆盖（也许是一个“最终”声明）？类似于以下伪代码：

> xvar <- 10
> xvar
[1] 10
xvar <- 6
> "Error, cannot overwrite this variable unless you remove its finality attribute"

动机：多次运行 R 脚本时，有时很容易无意中覆盖变量。

【问题讨论】：

【解决方案1】：

查看? lockBinding:

a <- 2
a
## [1] 2
lockBinding('a', .GlobalEnv)
a <- 3
## Error: cannot change value of locked binding for 'a'

及其补充，unlockBinding：

unlockBinding('a', .GlobalEnv)
a <- 3
a
## [1] 3

【讨论】：

【解决方案2】：

您可以使用pryr 包使变量保持不变。

install_github("pryr")
library(pryr)

xvar %<c-% 10
xvar
## [1] 10
xvar <- 6
## Error: cannot change value of locked binding for 'xvar'

%<c-% 运算符是assign + lockBinding 的便捷包装器。

就像 Baptiste 在 cmets 中所说：如果您对此有疑问，则可能是编码风格不佳的迹象。将大部分逻辑捆绑到函数中将减少变量名冲突。

【讨论】：

%<c-% 与x %<c-% 1 + 2 之类的操作一起使用存在危险，它的行为不像x <- 1+2，这意味着您需要更多的括号与%<c-%。在我看来，如果使用 final 变量，最好用 lockBinding() 手动声明它们。