使用属性（）内部函数

Question

我需要这样的功能：

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

如：note(xxx,"yyyy")

中，我尝试设置的值"yyyy"xxx对象的第四个属性（在全局ENV）。实际上，函数（如预期的）不起作用，因为它修改了函数env中的值。
有什么建议吗？

Answer 1

你可以把函数返回的对象本身，因此它可以被重新分配：

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

xxx <- note(xxx, "yyyy") 

Answer 2

这里的解决方案（发现尝试flodel建议）：

note<-function(object,text=""){ 
object2<-object 
attributes(object2)[4]<-text 
assign(deparse(substitute(object)),object2,envir=.GlobalEnv) 
} 

感谢所有