[R] don't print object attributes

[Peter Ehlers]

On 2012-08-28 10:34, Duncan Murdoch wrote:
> On 28/08/2012 1:12 PM, Liviu Andronic wrote:
>> Dear all
>> Suppose the object below:
>>> require(Hmisc)
>>> require(plyr)
>>> x <- dlply(iris, .(Species), describe)
>>
>> How can I print the object without displaying the attributes? I
>> inspected ?print and ?print.default with no luck.
>
> Assign a class to the object, and write a print method for it.
>
> For example, this doesn't quite do what you want, but it's a start:
>
> print.noattributes <- function(x, ...) {
>      attributes(x) <- NULL
>      print(x)
> }
>
> class(x) <- "noattributes"
> x
>
> It loses some attributes that you probably want to keep (e.g. the
> names), but otherwise works on your example.
>
> Duncan Murdoch

It seems that class "listof" also works:

   class(x) <- "listof"
   x

Peter Ehlers

>
>
>>> x
>> $setosa
>> x[, "Sepal.Length"]
>>         n missing  unique    Mean     .05     .10     .25     .50     .75
>>        50       0      15   5.006    4.40    4.59    4.80    5.00    5.20
>>       .90     .95
>>      5.41    5.61
>>
>>             4.3 4.4 4.5 4.6 4.7 4.8 4.9  5 5.1 5.2 5.3 5.4 5.5 5.7 5.8
>> Frequency   1   3   1   4   2   5   4  8   8   3   1   5   2   2   1
>> %           2   6   2   8   4  10   8 16  16   6   2  10   4   4   2
>>
>> $versicolor
>> x[, "Sepal.Length"]
>>         n missing  unique    Mean     .05     .10     .25     .50     .75
>>        50       0      21   5.936   5.045   5.380   5.600   5.900   6.300
>>       .90     .95
>>     6.700   6.755
>>
>> lowest : 4.9 5.0 5.1 5.2 5.4, highest: 6.6 6.7 6.8 6.9 7.0
>>
>> $virginica
>> x[, "Sepal.Length"]
>>         n missing  unique    Mean     .05     .10     .25     .50     .75
>>        50       0      21   6.588   5.745   5.800   6.225   6.500   6.900
>>       .90     .95
>>     7.610   7.700
>>
>> lowest : 4.9 5.6 5.7 5.8 5.9, highest: 7.3 7.4 7.6 7.7 7.9
>>
>> attr(,"split_type")
>> [1] "data.frame"
>> attr(,"split_labels")
>>        Species
>> 1     setosa
>> 2 versicolor
>> 3  virginica
>>
>> Regards
>> Liviu
>>
>>
>
> ______________________________________________
> R-help at r-project.org 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.
>