## ---- eval=FALSE---------------------------------------------------------
# # Release version in CRAN
# install.packages('GetITRData') # not in CRAN yet
#
# # Development version in Github
# devtools::install_github('msperlin/GetITRData')
## ------------------------------------------------------------------------
library(GetITRData)
library(tibble)
gitrd.search.company('petrobras')
## ------------------------------------------------------------------------
df.info <- gitrd.get.info.companies(type.data = 'companies')
glimpse(df.info)
## ------------------------------------------------------------------------
name.companies <- 'PETRĂ“LEO BRASILEIRO S.A. - PETROBRAS'
first.date <- '2004-01-01'
last.date <- '2006-01-01'
type.statements <- 'individual'
periodicy.fin.report <- 'annual'
df.reports <- gitrd.GetITRData(name.companies = name.companies,
periodicy.fin.report = periodicy.fin.report,
first.date = first.date,
last.date = last.date,
type.info = type.statements)
## ------------------------------------------------------------------------
glimpse(df.reports)
## ------------------------------------------------------------------------
df.income.long <- df.reports$fr.income[[1]]
glimpse(df.income.long)
## ------------------------------------------------------------------------
df.income.wide <- gitrd.convert.to.wide(df.income.long)
knitr::kable(df.income.wide )
## ------------------------------------------------------------------------
set.seed(2)
my.companies <- sample(unique(df.info$name.company), 5)
first.date <- '2008-01-01'
last.date <- '2010-01-01'
type.statements <- 'individual'
periodicy.fin.report <- 'annual'
df.reports <- gitrd.GetITRData(name.companies = my.companies,
periodicy.fin.report = periodicy.fin.report,
first.date = first.date,
last.date = last.date,
type.info = type.statements)
## ------------------------------------------------------------------------
glimpse(df.reports)
## ------------------------------------------------------------------------
df.assets <- do.call(what = rbind, args = df.reports$fr.assets)
df.liabilities <- do.call(what = rbind, args = df.reports$fr.liabilities)
df.assets.liabilities <- rbind(df.assets, df.liabilities)
## ------------------------------------------------------------------------
library(dplyr)
my.tab <- df.assets.liabilities %>%
group_by(company.name, ref.date) %>%
summarise(Liq.Index = acc.value[acc.number == '1.01']/ acc.value[acc.number == '2.01'])
my.tab
## ------------------------------------------------------------------------
library(ggplot2)
p <- ggplot(my.tab, aes(x = ref.date, y = Liq.Index, fill = company.name)) +
geom_col(position = 'dodge' )
print(p)
## ---- eval=FALSE---------------------------------------------------------
# my.basename <- 'MyExcelData'
# my.format <- 'xlsx' # only supported so far
# gitrd.export.ITR.data(data.in = df.reports,
# base.file.name = my.basename,
# type.export = my.format,
# format.data = 'long')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.