r - R函数中的掩码输出

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