r - R中的变量声明/"option explicit"

Question

R 非常棒:精简而灵活，但又强大又开放。对于小任务，如果不必在使用前声明每个变量会很方便。但是:特别是。在较大的项目中，小的拼写错误可能会搞砸一切，甚至可能没有错误消息(参见示例)!

有解决办法吗？如果不在纯 R 中，也可能由要求声明 block 的编辑器提供？ VBA 中的“显式选项”之类的东西？我知道在标记 RStudio 编辑器时可以很好地突出显示相同的变量，但是如果有问题的变量相距很远，这就没那么有用了。

只是为了清楚起见:我并不是在寻找更优雅/更不容易出错的此功能的实现，创建它只是为了提供演示。

# without typo
fun <- function(x) {
  a <- x
  if (a<0) {
    if (a > -50) x <- -1 else x <- -2
  }
  return(x)
}

# even if masters will spot the typo on the first glance...
fun.typo <- function(x) {
  a <- x
  if (a<0) {
    if (a > -50) x <- -1 else X <- -2
  }
  return(x)
}

fun( 50) # 50
fun(-40) # -1
fun(-60) # -2

fun.typo( 50) #  50
fun.typo(-40) #  -1
fun.typo(-60) # -60 (*** unintended, should be -2 ***)

Answer 1

一个非常“肮脏”的解决方案是系统地检查函数的本地环境在“序言”之后没有改变。

fun <- function(x) {
  a <- x
  ls1 <- ls()
  if (a<0) {
    if (a > -50) x <- -1 else x <- -2
  }
  ls2 <- ls()
  print(list(c(ls1,"ls1"),ls2))
  if (!setequal(c(ls1,"ls1"), ls2)) stop("Something went terribly wrong!")
  return(x)
}

fun.typo <- function(x) {
  a <- x
  ls1 <- ls()
  if (a<0) {
    if (a > -50) x <- -1 else X <- -2
  }
  ls2 <- ls()
  print(list(c(ls1,"ls1"),ls2))
  if (!setequal(c(ls1,"ls1"), ls2)) stop("Something went terribly wrong!")
  return(x)
}

有了这个“解决方案”，fun.typo(-60) 就不再默默给出错误答案了……