R 4.4.0+中UseMethod调用前局部变量无法访问的解决方法

R 4.4.0及后续版本调整了UseMethod的执行机制，子方法不再继承泛型函数的运行环境，导致原代码中泛型内定义的this变量无法被that.foo或that.bar访问，运行时会抛出object 'this' not found的错误。

方法1：通过参数传递共享变量（推荐） #

修改泛型函数，将this作为额外参数传递给子方法，子方法新增对应参数接收：

that <- function(x) {
  this <- 10
  # 调用子方法时显式传递this参数
  UseMethod("that", x, this = this)
}

# 子方法新增this参数
that.foo <- function(x, this) {
  this * x
}

that.bar <- function(x, this) {
  this / x
}

x <- structure(5, class = "foo")
that(x)  # 输出50

方法2：利用环境绑定共享变量（无需修改子方法参数） #

在泛型函数中创建临时环境绑定this，让子方法临时继承该环境，执行后恢复原环境：

that <- function(x) {
  this <- 10
  # 创建绑定了this的子环境
  method_env <- new.env(parent = environment(that.foo))
  method_env$this <- this
  # 临时替换子方法的执行环境
  old_env <- environment(that.foo)
  environment(that.foo) <- method_env
  on.exit(environment(that.foo) <- old_env)  # 执行完毕恢复原环境
  
  UseMethod("that", x)
}

that.foo <- function(x) {
  this * x
}

that.bar <- function(x) {
  this / x
}

x <- structure(5, class = "foo")
that(x)  # 输出50

方法3：临时附加属性到输入对象 #

通过给x添加临时属性传递this，执行后移除属性避免污染原对象：

that <- function(x) {
  this <- 10
  # 临时为x添加this属性
  x <- structure(x, this_val = this)
  UseMethod("that", x)
}

that.foo <- function(x) {
  result <- attr(x, "this_val") * x
  # 移除临时属性
  attr(x, "this_val") <- NULL
  result
}

that.bar <- function(x) {
  result <- attr(x, "this_val") / x
  attr(x, "this_val") <- NULL
  result
}

x <- structure(5, class = "foo")
that(x)  # 输出50

其中方法1是最简洁且符合新版本R规范的做法，直接通过参数传递共享变量，代码可读性和维护性都更强。

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