msperlin / GetDFPData2

Repository for the development of R package GetDFPData2
36 stars 8 forks source link

Ano 2021 faltante #9

Open Sidonesio opened 1 year ago

Sidonesio commented 1 year ago

Olá, professor. Baixei os dados de Cosan desde 2010, mas não veio o ano de 2021. O que está acontecendo?

Código abaixo:

rm(list = ls()) graphics.off() if (!require("pacman")) install.packages("pacman") p_load( GetDFPData2, tidyverse, janitor, here, lubridate, tiqyquant ) select_company <- "cosan" data_search <- search_company(select_company) |> as_tibble() |> clean_names() |> filter(sit_reg == "ATIVO") company_code <- data_search |> pull(cd_cvm) first_year <- 2010 income <- get_dfp_data( companies_cvm_codes = company_code, type_docs = "DRE",
type_format = "con", first_year = first_year, last_year = year(Sys.Date()) ) |> pluck(1) |> clean_names() select_income <- c( "Receita de Venda de Bens e/ou Serviços", "Resultado Bruto", "Resultado Antes do Resultado Financeiro e dos Tributos", "Lucro/Prejuízo Consolidado do Período", ) income_subset <- income |> select( date_start = dt_ini_exerc, index = cd_conta, item = ds_conta, value = vl_conta ) |> filter(item %in% select_income) income_subset |> filter(str_detect(item, "Receita")) |> tq_mutate( select = value,
mutate_fun = periodReturn,
period = "annually",
col_rename = "return" )

msperlin commented 1 year ago

Oi Sidonesio,

Rodei o seu código aqui e funcionou (veja abaixo).

image

O que aparece para voce?

Sidonesio commented 1 year ago

Rodei este código:

rm(list = ls()) graphics.off() lapply(names(sessionInfo()$otherPkgs), function(pkgs) detach( paste0('package:', pkgs), character.only = T, unload = T, force = T)) if (!require("pacman")) install.packages("pacman") p_load( GetDFPData2, tidyverse, janitor ) cia_code <- search_company("infracommerce") |> as_tibble() |> clean_names() |> pull(cd_cvm) cia_bpa <- get_dfp_data( companies_cvm_codes = cia_code, first_year = 2010, last_year = year(Sys.Date()), type_docs = "BPA", type_format = "con" ) |> pluck(1) |> clean_names() glimpse(cia_bpa) cia_bpa |> select(date = dt_refer, variable = ds_conta, value = vl_conta) |> filter(variable == "Ativo Total") distinct(ds_conta) |> print(n = Inf)

E apareceu isto:

image

msperlin commented 1 year ago

Oi Sid,

Aqui está funcionando:

image

talvez esteja com cache de arquivo antigo? Tenta limpar o diretório de cacheamento ou então rodar sem cacheamento.