獲得來自viewFinancials只有數字輸出，無需額外的文本

Question

我微軟的計算股息收益率的方式如下：

# load financial data for MSFT 
library(quantmod) 
getFinancials('MSFT') 

# calculate dividend yield for MSFT 
as.numeric(first(-viewFinancials(MSFT.f, type='CF', period='A',subset = NULL)['Total Cash Dividends Paid',]/viewFinancials(MSFT.f, type='BS', period='A',subset = NULL)['Total Common Shares Outstanding',])) 

這裏是輸出

Annual Cash Flow Statement for MSFT 
Annual Balance Sheet for MSFT 
[1] 1.40958 

怎麼可能只具有數字輸出1.40958沒有附加文字Annual Cash Flow Statement for MSFT和Annual Balance Sheet for MSFT？有沒有辦法抑制這些？

Answer 1

兩個字符串「MSFT年度現金流量表」和「MSFT年度資產負債表」均爲來自的消息。他們不以任何方式關注結果。

R> dy <- as.numeric(first(-viewFinancials(MSFT.f, type='CF', period='A',subset = NULL)['Total Cash Dividends Paid',]/viewFinancials(MSFT.f, type='BS', period='A',subset = NULL)['Total Common Shares Outstanding',])) 
Annual Cash Flow Statement for MSFT 
Annual Balance Sheet for MSFT 
R> dy 
[1] 1.40958 

如果要壓制信息，請使用suppressMessages()。

R> suppressMessages(dy <- as.numeric(first(-viewFinancials(MSFT.f, type='CF', period='A',subset = NULL)['Total Cash Dividends Paid',]/viewFinancials(MSFT.f, type='BS', period='A',subset = NULL)['Total Common Shares Outstanding',]))) 
R> dy 
[1] 1.40958 
R>