默認情況下列表元素的任意打印

Question

我有一個列表中有很多對象（數據框，R6對象等等），我只想列出一些要打印的列表元素，當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