2013-11-23 23 views
1
methods(print) 
omitted many outputs 
[175] print.vignette* print.warnings print.xgettext*        
[178] print.xngettext* print.xtabs*         

Non-visible functions are asterisked 

我怎樣才能得到最終沒有星號的打印功能? print.warnings應顯示,print.xtabs*不應顯示。如何顯示最後沒有星號的功能?

methods(print)->x 
x[grep("^//*",x)] 
x[grep("^*",x)]  

這是失敗。

+0

'grep的( 「*」,as.character(方法(打印)),固定= T,invert = T,value = T)' –

回答

2

星號不是字符串的真正組成部分(因此,即使正確表達咒語的權利,也不會通過將grep應用於字符串來檢測它們),它們會附加print.MethodsFunction方法。也許這會做你想要什麼:

methods(print)->x 
vis <- attr(x,"info")[,"visible"] 
x[!vis] 
x[vis] 

(我想通了這一點通過查看str(x)輸出)