[EMAIL PROTECTED] wrote: > What I've done is to define a subclass that keeps attributes, that can > be added to any object, shown below. The keep.attr() function is > supposed to return just user attributes but I'm not sure if my list of > special ones is complete.
Sorry, the following version should be better. -- David Hinds ---------------- keep.attr <- function(x) { a <- attributes(x) a[c('names','row.names','class','dim','dimnames')] <- NULL a } keep <- function(.Data, ..., .Attr=NULL) { cl <- union('keep', class(.Data)) do.call('structure', c(list(.Data, class=cl, ...), .Attr)) } '[.keep' <- function(.Data, ...) keep(NextMethod(), .Attr=keep.attr(.Data)) '[<-.keep' <- function(.Data, ...) keep(NextMethod(), .Attr=keep.attr(.Data)) ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.