有没有办法重新分配 R 访问器函数并使用它来更新它访问的变量属性？

Question

在我的代码中有一种情况，我有条件地想在整个代码中使用一个或另一个访问器函数。每次我想选择使用哪个访问器并对其进行显式编码时，我并没有使用 if-else 语句，而是尝试有条件地将访问器函数中的任何一个分配给一个名为 accessor_fun 的新函数，并在整个代码中使用它，但是当我使用访问器函数重新分配它访问的值时，这 returns 是一个错误。这是我遇到的问题的简化示例：

#reassigning the base r function names to a new function name
alt_names_fun <- names

example_list <- list(cat = 7, dog = 8, fish = 33)
other_example_list <- list(table = 44, chair = 101, desk = 35)


#works
alt_names_fun(example_list)

#throws error
alt_names_fun(example_list) <- alt_names_fun(other_example_list)

#still throws error
access_and_assign <- function(x, y, accessor) {
  accessor(x) <- accessor(y)
}
access_and_assign(x = example_list, y = other_example_list, accessor = alt_names_fun)

#still throws error
alt_names_fun_2 <- function(x){names(x)}
alt_names_fun_2(example_list) <- alt_names_fun_2(other_example_list)


#works
names(example_list) <- names(other_example_list)

如您所见，如果您尝试上面的代码，我遇到的错误类型的一个示例是

Error in alt_names_fun(example_list) <- alt_names_fun(other_example_list) : 
 could not find function "alt_names_fun<-"

所以我的问题是，有没有办法重新分配 R 访问器函数并以我在上面的示例中尝试的方式使用它们？

Answer 1

访问函数实际上是一对函数。一个用于检索，一个用于赋值。如果你想复制它，你需要复制两个部分

alt_names_fun <- names
`alt_names_fun<-` <- `names<-`

作业版本的名称中包含 <-。这是 R 用于查找它们的特殊命名对流。由于这些是基本符号名称中通常不允许使用的字符，因此您需要使用反引号将函数名称括起来。

有没有办法重新分配 R 访问器函数并使用它来更新它访问的变量属性？

Is there a way to re-assign an R accessor function and use it to update the variable properties it accesses?

functional-programming

r

function

accessor

variable-assignment