r - 在函数内部使用 attributes()

Question

我需要这样一个函数:

note<-function(object,text=""){attributes(object)[4]<-text}  

例如:note(xxx,"yyyy")

我在其中尝试将值 "yyyy" 设置为 xxx 对象(在全局环境中)的第四个属性。实际上，该函数(如预期的那样)不起作用，因为它修改了
中的值函数环境
有什么建议吗？

Answer 1

你可以让函数返回对象本身，这样它就可以被重新赋值:

note <- function(object, text = "") {
    attributes(object)[4] <- text
    return(object)
}

xxx <- note(xxx, "yyyy")