此代碼作品不僅包括BS,還包括IS和CF:
輸入:
tickers <-new.env()
t <-c("AAL", "AAME", "AAOI")
lapply(t, getFinancials, env=tickers)
BS <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'BS', period = 'A')}))
IS <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'IS', period = 'A')}))
CF <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'CF', period = 'A')}))
輸出:
> tickers <-new.env()
> t <-c("AAL", "AAME", "AAOI")
> lapply(t, getFinancials, env=tickers)
[[1]]
[1] "AAL.f"
[[2]]
[1] "AAME.f"
[[3]]
[1] "AAOI.f"
> BS <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'BS', period = 'A')}))
Annual Balance Sheet for AAME
Annual Balance Sheet for AAL
Annual Balance Sheet for AAOI
> IS <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'IS', period = 'A')}))
Annual Income Statement for AAME
Annual Income Statement for AAL
Annual Income Statement for AAOI
> CF <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'CF', period = 'A')}))
Annual Cash Flow Statement for AAME
Annual Cash Flow Statement for AAL
Annual Cash Flow Statement for AAOI
?viewFin
或?viewFinancials
會顯示您可能的選項/參數爲。