Baixando demonstrações contábeis com o R

No início do ano mostramos como é possível vizualizar demonstrações contábeis no R. Neste post iremos mostrar como podemos baixar  demonstrações financeiras em Excel pelo R. Após a execução do script abaixo, o balanço patrimonial, a demonstração do resultado do exercício e o fluxo de caixa tanto trimestral como anual dos 3 últimos exercícios da Petrobras, Apple e Vale serão baixados separadamente em arquivos em excel no formato CSV no local em que está definido seu diretório do R. Em seguida basta transformar todas as tabelas do CSV para XLS, seguindo o este tutorial. Caso queira baixar outras demonstrações, basta trocar o símbolo da ação. Para isso, verifique o site do Google Finance.

#Instale o pacote quantmod

library(quantmod)

PBR<-getFinancials("PBR",src="google",auto.assign=FALSE)
write.csv(PBR$IS$A,"PBR_DRE_ANUAL.csv")
write.csv(PBR$BS$A,"PBR_BP_ANUAL.csv")
write.csv(PBR$CF$A,"PBR_FLUXOCAIXA_ANUAL.csv")
write.csv(PBR$IS$Q,"PBR_DRE_TRIMESTRE.csv")
write.csv(PBR$BS$Q,"PBR_BP_TRIMESTRE.csv")
write.csv(PBR$CF$Q,"PBR_FLUXOCAIXA_TRIMESTRAL.csv")

AAPL<-getFinancials("AAPL",src="google",auto.assign=FALSE)
write.csv(AAPL$IS$A,"AAPL_DRE_ANUAL.csv")
write.csv(AAPL$BS$A,"AAPL_BP_ANUAL.csv")
write.csv(AAPL$CF$A,"AAPL_FLUXOCAIXA_ANUAL.csv")
write.csv(AAPL$IS$Q,"AAPL_DRE_TRIMESTRE.csv")
write.csv(AAPL$BS$Q,"AAPL_BP_TRIMESTRE.csv")
write.csv(AAPL$CF$Q,"AAPL_FLUXOCAIXA_TRIMESTRAL.csv")


VALE<-getFinancials("VALE",src="google",auto.assign=FALSE)
write.csv(VALE$IS$A,"VALE_DRE_ANUAL.csv")
write.csv(VALE$BS$A,"VALE_BP_ANUAL.csv")
write.csv(VALE$CF$A,"VALE_FLUXOCAIXA_ANUAL.csv")
write.csv(VALE$IS$Q,"VALE_DRE_TRIMESTRE.csv")
write.csv(VALE$BS$Q,"VALE_BP_TRIMESTRE.csv")
write.csv(VALE$CF$Q,"VALE_FLUXOCAIXA_TRIMESTRAL.csv")