调用模型时打印文本

Question

我希望这不是一个双重职位。我一直在寻找答案。

我有一个函数返回一个相当大的列表。所以我希望它在列表的所有结果之间打印一些文本。有点像从lm和其他型号中知道的那样。

考虑该R脚本

y<-function(z) 
{ 
l<-list() 
print("hello world") 
l$answer<-2*z 
return(l) 
} 
x<-y(5) 

这是一个小例子。我尝试了一个打印解决方案，但这是一个不好的解决方案，仅仅因为它在我将变量保存为x < -fun（5）时执行打印。我只是希望它在你明确提出要求时执行文本，或者如果你可以将自己的“摘要”命令构建到列表中，甚至更好。

谢谢你的时间。

Answer 1

如果我明白你想要做什么，我认为你正在寻找实施S3方法print。

1. 设置类属性：在Y函数的返回值 “SomeClass的”
2. 定义print.someclass

这里的代码：

y<-function(z) 
{ 
    l<-list() 
    l$answer<-2*z 
    ## Roland comment : usually better to preserve existing classes: 
    class(l) <- c('someclass', class(l)) 
    return(l) 
} 

print.someclass<- 
    function(x,...){ ## add here what you want to print 
       print("hello world") 
} 

x<-y(5) 

现在，当您在控制台输入x或print（x）：

x 
[1] "hello world"