Martin Maechler <[EMAIL PROTECTED]> writes: > >>>>> "PD" == Peter Dalgaard <[EMAIL PROTECTED]> > >>>>> 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 ~~~~~~~~~~ - ([EMAIL PROTECTED]) FAX: (+45) 35327907 ______________________________________________ R-devel@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-devel
