r - 如果对象名称在变量中，如何设置对象的特定属性？

Question

通常你会将对象的属性设置为

attributes(x) <- list(dummy = 123)

但我将变量名称存储在字符向量中。以下代码会引发错误:

var <- "x"
attributes(eval(as.name(var))) <- list(dummy = 123)

Error in attributes(eval(as.name(var))) <- list(dummy = 123) : could not find function "eval<-"

如果 eval(as.name()) 不是正确的方法，有人可以建议解决这个问题的方法吗？

Answer 1

您可以使用一个函数来应用属性，并使用 assign 函数来应用它们:

add_dummy <- function(obj, name, attribute){
  attr(obj, name) <- attribute
  return(obj)
}

assign(var, add_dummy(get(var), "attr_name", list(dummy = 123)))