In msperlin/adfeR: Data, exercises and Functions for Book "Analise de Dados Financeiros e Economicos com o R"

library(GetDFPData2)
library(tidyverse)

my_company <- 'Petrobrás'

search_company(my_company)

my_id <- 9512
my_year <- 2019

l_dfp <- get_dfp_data(companies_cvm_codes = my_id, 
                      type_format = 'con',
                      first_year = my_year,
                      last_year  = my_year)

df_dre <- l_dfp$`DF Consolidado - Demonstração do Resultado` %>%
  filter(DT_REFER == max(DT_REFER))

# last profit
acc_id <- "3.11"
my_sol <- df_dre$VL_CONTA[df_dre$CD_CONTA == acc_id]

my_answers <- format_cash(make_random_answers(my_sol), type_cash = 'BRL') 

#check_answers(my_answers)

Question

Usando pacote GetDFPData2, baixe os demostrativos financeiros consolidados da empresa r my_company para o ano de r my_year. Qual foi o seu lucro líquido no final do exercício (x1000)?

exams::answerlist(my_answers, markup = "markdown")

Solution

Meta-information

extype: schoice exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE) exname: "petrobras" exshuffle: TRUE

msperlin/adfeR documentation built on March 26, 2021, 3:05 a.m.