[R] shorten str() output for long list

[Peng Yu]

> 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.