R默认情况下可自行打印列表元素

Question

我有一个包含许多对象（数据框，R6对象等等）的列表，我只想要一些＆＃39;一些＆＃39;在列表上调用print方法时，要打印的列表元素的数量。哪种方法最好？

Answer 1

您可以向对象添加自定义class，并为此类创建打印方法：

x <- list(A=rnorm(5),B=sample(letters,100,replace=TRUE),C=mtcars)
class(x) <- c("myclass",class(x))
print.myclass <- function(x) {
                 print(list(A=prettyNum(x$A,digits=2), B=table(x$B)))
                 }
x
$A
[1] "-0.86" "-0.6"  "0.76"  "-0.2"  "-0.92"

$B

 a  b  c  d  e  f  g  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z 
 4  3  3 11  3  6  2  3  6  5  3  3  5  3  1  1  7  4  2  3  5  5  2  7  3