R 中是否提供更严格的错误报告？

Question

在 PHP 中，我们可以执行 error_reporting(E_ALL) 或 error_reporting(E_ALL|E_STRICT) 来获得有关可疑代码的警告。在 g++ 中，您可以提供 -Wall （和其他标志）来对代码进行更多检查。 R中有类似的吗？

作为一个具体的例子，我将一段代码重构为一些函数。在其中一个函数中，我有这样一行：

 if(nm %in% fields$non_numeric)...

很久以后，我意识到我忽略了将 fields 添加到参数列表，但 R 并没有抱怨未定义的变量。

Answer 1

（作为答案而不是评论发布）

?codetools::checkUsage 怎么样（codetools 是一个内置包）...？

Answer 2

这并不是真正的答案，我只是忍不住展示如何显式声明全局变量。 @Ben Bolker 应该发表他的评论作为答案。

为了避免看到全局变量，您可以在一个环境“上”调用一个函数 - 它将能够看到所有标准函数等（mean等），但看不到您放入其中的任何内容全局环境：

explicit.globals = function(f) {
    name = deparse(substitute(f))
    env = parent.frame()
    enclos = parent.env(.GlobalEnv)

    environment(f) = enclos
    env[[name]] = f
}

然后获取全局只是从 .GlobalEnv 中检索它：

global = function(n) {
    name = deparse(substitute(n))
    env = parent.frame()
    env[[name]] = get(name, .GlobalEnv)
}
assign('global', global, env=baseenv())

它会像这样使用

a = 2
b = 3

f = function() {
    global(a)

    a
    b
}
explicit.globals(f)

并被调用，

> f()
Error in f() : object 'b' not found

我个人不会这样做，但如果你习惯了 PHP 它可能会感觉。

Answer 3

总而言之，确实没有正确的答案：正如 Owen 和 gsk3 指出的那样，如果变量不在本地范围内，R 函数将使用全局变量。在某些情况下这可能是可取的，那么如何指出“错误”呢？

checkUsage() 不会执行 R 内置错误检查不会执行的任何操作（在本例中）。 checkUsageEnv(.GlobalEnv) 是检查辅助函数文件的有用方法（并且可能非常适合作为 svn 或 git 的预挂钩；或者作为自动构建过程的一部分）。

我认为重构时最好的解决方案是：从一开始就将所有全局代码移动到一个函数（例如称之为main()），然后唯一的全局代码将是调用该函数。先这样做，然后开始提取函数等。