Exemplo de uso do pacote GetDFPData2 (entrevista 04/2021)

Example_GetDFPData2-Ytube.R

if (!require('GetDFPData2')) install.packages('GetDFPData2')
if (!require('tidyverse')) install.packages('tidyverse')

library(GetDFPData2)
library(tidyverse)

my_company <- 'WEG'

search_company(my_company)

my_id <- NULL # get all companies
my_id <- 5410 # get WEG SA data

l_dfp <- get_dfp_data(companies_cvm_codes = my_id, 
                      first_year = 2015, 
                      last_year = 2020, 
                      use_memoise = TRUE)

l_dfp$`DF Individual - Demonstração do Resultado`

# get ATIVO
ativo <- l_dfp$`DF Consolidado - Balanço Patrimonial Ativo` %>%
  filter(CD_CONTA == 1)

glimpse(ativo)