Question

我是在R中编写函数的新手，想要编写一个创建多个输出的函数，但是我想屏蔽某些对象的输出，以便计算并调用它们，但不是直接功能很有趣时输出。例如：

fun <- function(x){
    mean <- mean(x)
    sd <- sd(x)
    return(list(sd = sd, mean = mean))
}

x <- rnorm(100)
fun(x)

在这里，我希望在运行fun（x）并且计算sd但不报告时报告平均值（当我从列表中取出sd时，我不能再在以后调用它）。谢谢你的帮助！

Answer 1

有两种方法可以做到这一点。第一种是使用invisible，如@SenorO所示。更复杂的方法是创建一个新类并覆盖print方法。如果您创建一个新类，那么每次打印对象时，只会出现平均值：

print.myclass<-function(x){
    cat("Mean is:",x$mean ,"\n")
}

fun <- function(x){
    mean <- mean(x)
    sd <- sd(x)
    ret<-list(sd = sd, mean = mean)
    class(ret)<-"myclass"
    ret
}

您仍然可以像访问列表一样访问类中的值，如果您想要实际的基础列表，请调用unclass：

> x<-fun(rnorm(100))
> x
Mean is: -0.03470428 
> x$mean
[1] -0.03470428
> x$sd
[1] 0.9950132
> unclass(x)
$sd
[1] 0.9950132

$mean
[1] -0.03470428

Answer 2

使用print和invisible

fun <- function(x){
    print(mean <- mean(x))
    sd <- sd(x)
    return(invisible(list(sd = sd, mean = mean)))
}

导致：

> y = fun(x)
[1] -0.01194926
> y$sd
[1] 0.9474502

R功能中的掩码输出

2 个答案: