函数中的 return(q * log(..)) 返回错误

Question

我正在构建一个函数，该函数在调用代码中使用名为 q 的变量并返回 q * log(.. some number .. )。 在会话中创建此功能时，它可以正常工作，但是在另一个会话中加载包后使用此功能创建包时，它不起作用。这是一个简化的例子

在 R 中：

>myfunc <- function() return(q * log(2.0))
>q=1.0
>myfunc()
[1] 1.386294
>package.skeleton(list=c("myfunc"),name="mypckg")

在 R 中再次构建和安装包之后

> library(mypckg)
> q = 3.0
> myfunc()
Erreur dans q * log(2) : argument non numérique pour un opérateur binaire

如果我将变量的名称从 q 修改为 qq 或任何其他名称，一切正常。

谁能解释发生了什么。 q 是某个保留名称吗？这是 R 中的某个已知错误吗？

Answer 1

当您将函数包装在一个包中时，它与包含该包的剩余代码不同，它存在于另一个环境中。因此，myfunc 正在为 q 搜索一组不同的环境，而不是你的变量，它找到了 base::q，这是一个函数。

解决方案是不要像在函数中那样访问全局变量。而是使用参数：

myfunc <- function (q) q * log(2.0)

Answer 2

如果您希望在重用函数时提供“q”值，您有两种选择：在参数列表中使用它或在函数体中定义它以便保留它。

myfunc <- function(q=1.0) return(q * log(2.0))
myfunc()

或者：

myfunc <- function() {q<-1.0; q * log(2.0) }  # less flexible definition of q
myfunc()

Jörg Mäder 的评论指出错误消息表明它确实找到了“q”，只是不在命名数据对象列表中，而是在命名函数列表中。