把你的object定义成一个新的class
然后写个print函数

我可以集成到函数里吗？写print的话，每个结果输出都得用print(变量，输出方式)，效率有点低啊

举个例子

myfunction <- function(x) {
        x1 <- rnorm(10)
        x2 <- rnorm(100)
        x3 <- rnorm(1000)
        x4 <- rnorm(10000)
            y <- list(x1=x1, x2=x2, x3=x3, x4=x4)
        class(y) <- "myobject"
        return(y)
}

print.myobject <- function(x) {
        len <- sapply(x, length)
        print(x[len < 200])
}

x <- myfunction(1)
x
names(x)

这里 x 是你的返回object，里面有不同长度， 在函数里面把你的返回list定义成一个新的object
然后对这个object定义一个print 函数，只对list里面长度<200的print
这样每次你函数反回的值， 打印出来的时候自动只打印<200的部分

帮顶

学习了