r - 参照クラスからメソッドをデバッグするには?

Question

getFields のような呼び出しをデバッグするには? 試しlibrary(debug); mtrace(AB.setFields)ましたが、何も起こりませんでした。

さらに、AB.setFields を定義するためのより良い方法はありますか?

AB.getFields<-function(){
  return(list(name,var2))
}
AB.setFields<-function(fields){
  namevar<-names(fields)
  for(i in 1:length(fields)) do.call("<<-",list(namevar[i],fields[[i]]))
}
AB <- setRefClass("AB", fields=c(name="character",
                                 var2="factor"),
                        methods=list(getFields=AB.getFields
                                    ,setFields=AB.setFields)
                  )
a<-AB(name="abc",var2=factor(LETTERS[1:3]))
a$getFields()
fields<-list(name="aaa",var2=factor(1:3))
a$setFields(fields)
a$getFields()