自定义包执行函数报错，全局环境运行正常求助

嘿，这个坑我踩过好几次！你遇到的问题本质是R的环境作用域差异导致的，我来给你拆解清楚：

问题根源 #

当你在全局环境直接运行catTableFun()时，get(grouped_by)默认会在当前环境（也就是你的全局环境）里查找varNameAsString这个对象，自然能找到；但当你通过elricoFuns::catTableFun()调用时，函数是在包的命名空间环境里执行的——这个环境和你的全局环境是相互隔离的，所以它找不到你全局里的varNameAsString，就会抛出object not found的错误。

三种解决方案 #

1. 给get()明确指定环境参数 #

修改你包内的catTableFun函数，把get()调用改成指定从调用者的环境（也就是你运行函数的全局环境）查找变量：

catTableFun <- function(aaa, grouped_by = "varNameAsString", preview = T) {
  # 关键修改：添加envir = parent.frame()
  group_var <- get(grouped_by, envir = parent.frame())
  # 剩下的原有代码...
}

parent.frame()会指向调用这个函数的环境，这样就能正确拿到你全局里的变量了。

2. 直接传递变量而非字符串（更推荐） #

如果可以调整函数的参数设计，最好让grouped_by直接接受变量本身，而不是变量名的字符串：

• 调用时改成：

  elricoFuns::catTableFun(aaa, grouped_by = varNameAsString, preview=T)
  

• 函数内部去掉get()，直接用grouped_by参数：

  catTableFun <- function(aaa, grouped_by, preview = T) {
    # 直接使用grouped_by，不用get()
    # 剩下的原有代码...
  }
  

这种方式更直观，也从根源上避免了环境问题。

3. 用rlang工具处理符号（tidyverse风格） #

如果你习惯用tidyverse的编程范式，可以用rlang包的函数来安全地处理变量名：

catTableFun <- function(aaa, grouped_by = "varNameAsString", preview = T) {
  # 把字符串转成符号，然后在调用者环境求值
  group_var <- rlang::eval_tidy(rlang::sym(grouped_by), data = parent.frame())
  # 剩下的原有代码...
}

这种方式更符合现代R的非标准求值规范，也能避免环境相关的意外问题。

验证修改 #

修改完包内的函数后，重新构建并安装包，再调用elricoFuns::catTableFun()应该就能正常运行了。

内容的提问来源于stack exchange，提问作者Andre Elrico