我试图用一种方法创建一个类，其中数据附加到对象本身。我不成功。

任何人都可以对问题提出一些见解。有什么想法吗？

logtestdf <- setClass(Class = 'logtestdf',representation = representation(df = 'data.frame'))
setGeneric(name = 'addtest',def = function(object,xfilename,xtest,xstatus,xmsg){
             standardGeneric('addtest')})
setMethod(f='addtest',signature = 'logtestdf',definition = function(object,xmsg){
          object@df = rbind(object@df,data.frame(filename = xfilename,test = xtest,status = xstatus,msg = xmsg))
          return(object) 
          })
setMethod('initialize','logtestdf',function(.object) {.object@df=data.frame(filename = character(0),test = character(0),status = character(0),msg = character(0)); .Object})