r - 在 R 中隐藏函数的结果

Question

我创建了一个具有四个输出参数的函数，例如:

myfuction<-function(...){     
    #Inside the function I created four results A, B, C, and D.    
    A = ...    
    B = ...    
    C = ...    
    D = ...     
    z<-list(MacKinnon=A,regression=B,proof=C, res=D)    
    return(z)
}

结果 D 对应于表示回归残差的数字向量。

我的问题是如何在不删除它的情况下隐藏此结果？也就是说，我希望当我运行该函数时，出现结果 A、B 和 C，但不出现结果 D。

如果我想访问结果 D，我必须做这样的事情:

X <-myfuction (...)
X$res

能够观察残差。

Answer 1

我只会使用 S3 类。基本上，只需标记对象 z与特定的类(class)

myfunction <- function(){     
  #Inside the function I created four results A, B, C, and D.    
  A = 10;B = 20;C = 30; D = 40     
  z = list(MacKinnon=A, regression=B, proof=C, res=D)    
  class(z) = "my_fun" # Tagging here
  return(z)
}

为 my_fun 创建 S3 打印功能

print.my_fun = function(x, ...) print(x[1:3])

然后

R> x = myfunction()
R> x
$MacKinnon
[1] 10

$regression
[1] 20

$proof
[1] 30

但

R> x$res
[1] 40

给你你想要的。

一些评论/指示。

通常，当您分配类(class)时，您会使用类似的东西

class(z) = c("my_fun", class(z))

然而，由于我们刚刚创建了 z在上面的行中，这不是必需的。

目前print方法去除了任何额外的类(在这个例子中，只有一个类，所以这不是问题)。如果我们想维护多个类，我们会使用

print.my_fun = function(x, ...) {
  x = structure(x[1:3], class = class(x)) 
  NextMethod("print")
}

函数子集的第一行x ，但维护所有其他类。第二行，然后通过 x下一个 print.class_name功能。