quantmod - Ежеквартальные и годовые отчеты - Можно ли извлечь 10 исторических периодов?

Question

Есть ли способ получить данные за последние 10 исторических периодов? На данный момент я получаю 5 исторических квартальных отчетов и 4 исторических годовых отчета через этот код.

Пожалуйста, помогите мне.

library(quantmod) 
getFin('AAPL') # returns AAPL.f to "env" 
viewFin(AAPL.f, "IS", "Q") # Quarterly Income Statement 
viewFin(AAPL.f, "CF", "A") # Annual Cash Flows 

Answer 1

BTW, если вы хотите, чтобы показатели и отношения составляли 10 лет, вы можете использовать эту методологию.

read.csv("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=AAPL",header=T,stringsAsFactors = F,skip = 2)[,-c(12)]->spreadsheet 
#str(spreadsheet) 
View(spreadsheet) 

Answer 2

Вы можете использовать это, но я думаю, что ограничение составляет 4 года исторических данных.

require(quantmod) 

setwd("C:/Users/your_path_here/Desktop") 

stocks <- c("AAVL", 
"ACAD", 
"ACHN") 

# equityList <- read.csv("EquityList.csv", header = FALSE, stringsAsFactors = FALSE) 
# names(equityList) <- c ("Ticker") 

for (i in 1 : length(stocks)) { 
     temp<-getFinancials(stocks[i],src="google",auto.assign=FALSE) 
     write.csv(temp$IS$A,paste(stocks[i],"_Income_Statement(Annual).csv",sep="")) 
     write.csv(temp$BS$A,paste(stocks[i],"_Balance_Sheet(Annual).csv",sep="")) 
     write.csv(temp$CF$A,paste(stocks[i],"_Cash_Flow(Annual).csv",sep="")) 
}