Question

根据我对Hadley's advice on building S3 objects的阅读，我正在使用辅助函数，构造函数和验证器函数。一个简单的可重复的例子：

test_object <- function(x, y, z) {
    new_test_object(x, y, z)
}

new_test_object <- function(x, y, z) {
    structure(list(x = x,
                   y = y,
                   z = z,
                   x_name = deparse(substitute(x))),
              class = "test_object")
}

validate_test_object <- function(test_object) {
    # Anything goes
    test_object
}

我希望生成的对象包含一个值，该值包含传入项的原始名称（在上例中为$x_name）。如果我直接调用构造函数，deparse(substitute(...))技巧就可以了：

alpha = "a"
test_constructor <- new_test_object(x = alpha, y = "b", z = "c")
test_constructor$x_name
# [1] "alpha"

但是如果我使用辅助函数则不行：

test_helper <- test_object(x = alpha, y = "b", z = "c")
test_helper$x_name
# [1] "x"

我希望test_helper$x_name也返回[1] "alpha"。

如果没有在辅助阶段执行deparse(substitute(...))步骤，那么构造函数（new_test_object()）是否有任何方法可以访问原始数据＆＃39;对象的名称x是否来自帮助者？或者，当helper函数将其传递给构造函数时，确保其名称与其一起传递？

Answer 1

这里的目的是什么？如果你只是使用一个函数作为另一个函数的包装器，那么有更好的方法来保存参数。例如

test_object <- function(x, y, z) {
  call <- match.call()
  call[[1]]  <- quote(new_test_object)
  eval(call)
}

但总的来说，依靠deparse()从变量名中获取信息并不是一种非常可靠的方法。如果您愿意，最好将这些信息作为适当的参数设置。这使您的功能更加灵活。

test_object <- function(x, y, z, xname=deparse(substitute(x))) {
    new_test_object(x, y, z, xname=xname)
}

new_test_object <- function(x, y, z, xname=deparse(substitute(x))) {
    structure(list(x = x,
                   y = y,
                   z = z,
                   x_name = xname),
              class = "test_object")
}

Answer 2

这是一个不太漂亮的修复：当你从另一个函数调用它时，你添加...参数来传递名称

test_object <- function(x, y, z) {
  x_name = deparse(substitute(x))
  new_test_object(x, y, z, x_name = x_name)
}

new_test_object <- function(x, y, z, ...) {
  args <- list(...)
  if(is.null(args[["x_name"]])){
    structure(list(x = x,
                   y = y,
                   z = z,
                   x_name = deparse(substitute(x))),
              class = "test_object")
  }
  else{
    structure(list(x = x,
                   y = y,
                   z = z,
                   x_name = args[["x_name"]]),
              class = "test_object")
  }

}

结果如下：

test_helper <- test_object(x = alpha, y = "b", z = "c")
test_helper$x_name
# [1] "alpha"

R对象的名称包含多个功能

2 个答案: