[R] shorten str() output for long list

[Henrik Bengtsson]

str(head(x))

str(head(x, n=5))

/H

On Thu, Dec 3, 2009 at 10:18 PM, David Winsemius <dwinsemius at comcast.net> wrote:
>
> On Dec 3, 2009, at 10:11 PM, Peng Yu wrote:
>
>>> x=split(1:1000,1:1000)
>>> str(x)
>>
>> Although str() can suppress long output for vectors, but it can not
>> suppress long output for list. I'm wondering how to suppress the
>> output for long lists.
>
> Very simple ... You examine the code (for str.default it's not short, I will
> admit) and modify it to your specifications:
>
> str.default contains a section which is clearly for lists. These minor
> modifications to the list portion of the function will achieve what you
> request:
>
> Argument ... ,max.list=200 )   defined in the invocation segment:
>
> +                 for (i in seq_len(min(max.list,le) ) ){
>                                    ^^^^^^^^^^^^
> +                   cat(indent.str, comp.str, nam.ob[i], ":", sep = "")
> +                   envir <- if (typeof(object[[i]]) == "promise") {
> +                     structure(object, nam = as.name(nam.ob[i]))
> +                   }
>
> ...and ... since it is a recursive data structure...
>
> +                   str(object[[i]], nest.lev = nest.lev + 1, indent.str =
> paste(indent.str,
> +                     ".."), nchar.max = nchar.max, max.level = max.level,
> +                     vec.len = vec.len, digits.d = digits.d, give.attr =
> give.attr,
> +                     give.head = give.head, give.length = give.length,
> +                     width = width, envir = envir, max.list)
>                                                    ^^^^^^^^
>> x=split(1:10,1:10)
>> str(x)
> List of 10
>  $ 1 : int 1
>  $ 2 : int 2
>  $ 3 : int 3
>  $ 4 : int 4
>  $ 5 : int 5
>  $ 6 : int 6
>  $ 7 : int 7
>  $ 8 : int 8
>  $ 9 : int 9
>  $ 10: int 10
>> x=split(1:10,1:10)
>> str(x, max.list=5)
> List of 10
>  $ 1 : int 1
>  $ 2 : int 2
>  $ 3 : int 3
>  $ 4 : int 4
>  $ 5 : int 5
>
> --
> David Winsemius, MD
> Heritage Laboratories
> West Hartford, CT
>
> ______________________________________________
> 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.
>