調用模型時打印文本

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"