[Rd] strange error with rw2010dev

[Peter Dalgaard]

Martin Maechler <maechler at stat.math.ethz.ch> writes:

> >>>>> "PD" == Peter Dalgaard <p.dalgaard at biostat.ku.dk>
> >>>>>     on 11 Apr 2005 09:46:11 +0200 writes:
> 
>  .....
> 
>      MM> Thanks again for the report; this should be fixable
>      MM> before release.
> 
>     PD> Preferably before code freeze! (today)
> 
>     PD> I think we (Thomas L.?) got it analysed once before: The
>     PD> issue is that summary.matrix is passing
>     PD> data.frame(object) back to summary.data.frame without
>     PD> removing the AsIs class.
> 
>     PD> I don't a simple unclass() will do here.
> 	       
> or, a bit more cautiously,

A "think" fell out in the above... Beware! I think you might want

cl <- class(object)
class(object) <- cl[cl != "AsIs"]

in case the object inherits from other classes. (Then again, it might
not be necessary, but better safe than sorry.)

> summary.matrix <- function(object, ...)
>     summary.data.frame(data.frame(if(inherits(object,"AsIs")) unclass(object)
>     else object), ...)
> 
> That does cure the problem in the Kjetil's example and the equivalent
> 
>  ## short 1-liner:
>  summary(df <- data.frame(mat = I(matrix(1:8, 2))))
> 
> 
> I'm currently make-checking the above.
> Martin
> 

-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)             FAX: (+45) 35327907