[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))
______________________________________________
[email protected] 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.
