Displaying 1 result from an estimated 1 matches for "rcfpdstoredobject".
2013 Jan 30
0
ROxygen2-Documenting of S4 Method
...liases set<-,rcfpdsuperclass,character,rcfpdsuperclass-
method,character-method
setReplaceMethod(
"set",
signature = signature(object = "rcfpdsuperclass",slot="character"),
definition = function(object,slot,value){
if(getSlots(class(object))[slot] == "RcfpdStoredObject"){
slot(object,slot) <- storeObject(value)
} else {
slot(object,slot) <- value
}
invisible(validObject(object))
return(object)
})