GetFREData available in CRAN!

[This article was first published on R | msperlin, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

I’m happy to report that package GetFREData is now available in CRAN. This R package serves as an interface to all corporate datasets available in the FRE system, a vast and official repository of information about many different corporate events. All companies listed at B3 – Brazilian stock exchange – must report to FRE any significant change in their corporate structure. You can find more details about what is available in FRE in its web interface.

The R package fetches data from the CVM ftp, downloads and parses the xml files, and output several tables as a list. The corporate data includes (since 2010):

  • List of stockholders
  • All capital issues
  • Stock value over years
  • Compensation of boards and directors
  • Composition of boards and committees
  • Family relations within the company
  • List of companies related to family members
  • Stock details
  • Intangible details
  • Auditing details
  • Dividends details

Historical parsed data between 2010 and 2019 is available for download in my personal site.

Installation

# CRAN (stable)
install.packages('GetFREData')

# github (development)
if (!require(devtools)) install.packages('devtools')
if (!require(GetFREData)) devtools::install_github('msperlin/GetFREData') 

Example of usage

library(GetFREData)
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.3.3     ✓ purrr   0.3.4
## ✓ tibble  3.1.0     ✓ dplyr   1.0.5
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
search_company('grendene', 
               cache_folder = tempdir())
## Fetching info on B3 companies
##  Dowloading file from CVM
##  Reading file from CVM
##  Saving cache data
##  Got 2331 lines for 2290 companies [Actives = 648 Inactives = 1653]
## Found 1 companies:
## GRENDENE SA | situation = ATIVO | sector = Têxtil e Vestuário | CD_CVM = 19615
## # A tibble: 1 x 44
##   CD_CVM DENOM_SOCIAL DENOM_COMERC SETOR_ATIV    PF_PJ CNPJ     DT_REG  DT_CONST
##                                         
## 1  19615 GRENDENE SA  GRENDENE SA  Têxtil e Ves… PJ    8985034… 26/10/… 25/02/1…
## # … with 36 more variables: DT_CANCEL , MOTIVO_CANCEL ,
## #   SIT_REG , DT_INI_SIT , SIT_EMISSOR ,
## #   DT_INI_SIT_EMISSOR , CATEG_REG , DT_INI_CATEG ,
## #   AUDITOR , CNPJ_AUDITOR , TP_ENDER , LOGRADOURO ,
## #   COMPL , BAIRRO , CIDADE , UF , PAIS ,
## #   CD_POSTAL , TEL , FAX , EMAIL , TP_RESP ,
## #   RESP , DT_INI_RESP , LOGRADOURO_RESP , COMPL_RESP ,
## #   BAIRRO_RESP , CIDADE_RESP , UF_RESP , PAIS_RESP ,
## #   CEP_RESP , TEL_RESP , FAX_RESP , EMAIL_RESP ,
## #   TP_MERC , cnpj_number 
l_fre <- get_fre_data(companies_cvm_codes = 19615,
                      fre_to_read = 'last',
                      first_year = 2020,
                      last_year = 2020, 
                      cache_folder = tempdir())
## Fetching ftp contents
##  * Reading fre_cia_aberta_2020.zip
## 
## Found 1 FRE docs to read
## Starting Downloads:
## -> Company 19615 | fre file 100932 (ver 9) | 2020-01-01 | reading and saving cache
glimpse(l_fre)
## List of 21
##  $ df_stockholders            :'data.frame': 10 obs. of  18 variables:
##   ..$ CNPJ_CIA               : chr [1:10] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA              : chr [1:10] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER               : Date[1:10], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM                 : num [1:10] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC                 : num [1:10] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO                 : num [1:10] 9 9 9 9 9 9 9 9 9 9
##   ..$ type.register          : chr [1:10] "Acionista" "Acionista" "Acionista" "Acionista" ...
##   ..$ id.person              : chr [1:10] "37071813833   " "09867597087   " "09864784072   " "68595743053   " ...
##   ..$ id.nationality         : chr [1:10] "Brasileira" "Brasileiro" "Brasileiro" "Brasileiro" ...
##   ..$ id.state               : chr [1:10] "São Paulo" "Rio Grande do Sul" "Rio Grande do Sul" "Rio Grande do Sul" ...
##   ..$ id.country             : logi [1:10] NA NA NA NA NA NA ...
##   ..$ name.stockholder       : chr [1:10] "Gabriella de Camargo Bartelle" "Alexandre Grendene Bartelle" "Pedro Grendene Bartelle" "Pedro Bartelle" ...
##   ..$ type.stockholder       : chr [1:10] "Fisica" "Fisica" "Fisica" "Fisica" ...
##   ..$ qtd.ord.shares         : chr [1:10] "28912677" "371651807" "125312376" "35557397" ...
##   ..$ perc.ord.shares        : chr [1:10] "3.200000" "41.200000" "13.890000" "3.940000" ...
##   ..$ qtd.pref.shares        : chr [1:10] "0" "0" "0" "0" ...
##   ..$ perc.pref.shares       : chr [1:10] "0.000000" "0.000000" "0.000000" "0.000000" ...
##   ..$ controlling.stockholder: logi [1:10] TRUE TRUE TRUE TRUE TRUE TRUE ...
##  $ df_capital                 :'data.frame': 2 obs. of  9 variables:
##   ..$ CNPJ_CIA   : chr [1:2] "89.850.341/0001-60" "89.850.341/0001-60"
##   ..$ DENOM_CIA  : chr [1:2] "GRENDENE S.A." "GRENDENE S.A."
##   ..$ DT_REFER   : Date[1:2], format: "2020-01-01" "2020-01-01"
##   ..$ CD_CVM     : num [1:2] 19615 19615
##   ..$ ID_DOC     : num [1:2] 100932 100932
##   ..$ VERSAO     : num [1:2] 9 9
##   ..$ stock.type : chr [1:2] "ON" "PN"
##   ..$ stock.class: chr [1:2] "0" "0"
##   ..$ qtd.issued : num [1:2] 9.02e+08 0.00
##  $ df_stock_values            :'data.frame': 2 obs. of  13 variables:
##   ..$ CNPJ_CIA              : chr [1:2] "89.850.341/0001-60" "89.850.341/0001-60"
##   ..$ DENOM_CIA             : chr [1:2] "GRENDENE S.A." "GRENDENE S.A."
##   ..$ DT_REFER              : Date[1:2], format: "2020-01-01" "2020-01-01"
##   ..$ CD_CVM                : num [1:2] 19615 19615
##   ..$ ID_DOC                : num [1:2] 100932 100932
##   ..$ VERSAO                : num [1:2] 9 9
##   ..$ stock.class           : chr [1:2] "0" "0"
##   ..$ stock.type            : chr [1:2] "ON" "PN"
##   ..$ max.price             : num [1:2] 12.7 0
##   ..$ min.price             : num [1:2] 7.94 0
##   ..$ avg.price             : num [1:2] 10.5 0
##   ..$ flag.missing.avg.price: logi [1:2] FALSE NA
##   ..$ qtd.issued            : num [1:2] 9.02e+08 0.00
##  $ df_mkt_value               :'data.frame': 1 obs. of  9 variables:
##   ..$ CNPJ_CIA     : chr "89.850.341/0001-60"
##   ..$ DENOM_CIA    : chr "GRENDENE S.A."
##   ..$ DT_REFER     : Date[1:1], format: "2020-01-01"
##   ..$ CD_CVM       : num 19615
##   ..$ ID_DOC       : num 100932
##   ..$ VERSAO       : num 9
##   ..$ mkt.avg.value: num 9.44e+09
##   ..$ mkt.min.value: num 7.16e+09
##   ..$ mkt.max.value: num 1.14e+10
##  $ df_increase_capital        :'data.frame': 0 obs. of  0 variables
##  $ df_capital_reduction       :'data.frame': 0 obs. of  0 variables
##  $ df_compensation            :'data.frame': 1 obs. of  22 variables:
##   ..$ CNPJ_CIA                          : chr "89.850.341/0001-60"
##   ..$ DENOM_CIA                         : chr "GRENDENE S.A."
##   ..$ DT_REFER                          : Date[1:1], format: "2020-01-01"
##   ..$ CD_CVM                            : num 19615
##   ..$ ID_DOC                            : num 100932
##   ..$ VERSAO                            : num 9
##   ..$ level.remuneration                : chr "Management Council"
##   ..$ qtd.members                       : num 6
##   ..$ qtd.remunerated.members           : num 6
##   ..$ total.value.remuneration          : num 1188000
##   ..$ fixed.salary                      : num 1188000
##   ..$ fixed.benefits                    : num 0
##   ..$ fixed.participations              : num 0
##   ..$ fixed.others                      : num 0
##   ..$ variable.bonus                    : num 0
##   ..$ variable.results.participation    : num 0
##   ..$ variable.meetings.participation   : num 0
##   ..$ variable.commissions.participation: num 0
##   ..$ variable.others                   : num 0
##   ..$ post.job.compensation             : num 0
##   ..$ ceasing.job.compensation          : num 0
##   ..$ stocks.options.benefits           : num 0
##  $ df_compensation_summary    :'data.frame': 3 obs. of  13 variables:
##   ..$ CNPJ_CIA               : chr [1:3] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60"
##   ..$ DENOM_CIA              : chr [1:3] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A."
##   ..$ DT_REFER               : Date[1:3], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM                 : num [1:3] 19615 19615 19615
##   ..$ ID_DOC                 : num [1:3] 100932 100932 100932
##   ..$ VERSAO                 : num [1:3] 9 9 9
##   ..$ level.remuneration     : chr [1:3] "Management Council" "Statutory Directors" "Fiscal Council"
##   ..$ qtd.members            : num [1:3] 6 3 3
##   ..$ qtd.remunerated.members: num [1:3] 6 3 3
##   ..$ max.remuneration       : num [1:3] 198000 2520995 148740
##   ..$ mean.remuneration      : num [1:3] 198000 1988385 148740
##   ..$ min.remuneration       : num [1:3] 198000 1210729 148740
##   ..$ observations           : logi [1:3] NA NA NA
##  $ df_transactions_related    :'data.frame': 41 obs. of  17 variables:
##   ..$ CNPJ_CIA                      : chr [1:41] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA                     : chr [1:41] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER                      : Date[1:41], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM                        : num [1:41] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC                        : num [1:41] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO                        : num [1:41] 9 9 9 9 9 9 9 9 9 9 ...
##   ..$ id.transaction                : chr [1:41] "1944" "1945" "1946" "1947" ...
##   ..$ name.related.part             : chr [1:41] "Dall'Onder Viagens & Turismo Ltda" "Grendene UK Limited" "Grendene Italy SRL" "MHL Calçados Ltda" ...
##   ..$ date.transaction              : Date[1:41], format: "2017-12-31" "2019-12-31" ...
##   ..$ description.related.part      : chr [1:41] "Empresa pertencente a família de um dos administradores" "Empresa controlada" "Empresa controlada indireta" "Empresa controlada" ...
##   ..$ description.transaction       : chr [1:41] "Serviços de assessoria e agenciamento de viagens aéreas" "Venda de calçados para abastecimento do mercado onde a mesma está sediada" "Venda de calçados para abastecimento do mercado onde a mesma está sediada" "Venda de insumos" ...
##   ..$ value.transaction             : chr [1:41] "479000.00" "832000.00" "1605000.00" "795000.00" ...
##   ..$ description.guarantees        : chr [1:41] "Não aplicável" "Não aplicável" "Não aplicável" "Não aplicável" ...
##   ..$ description.transaction.period: chr [1:41] "Prazo indeterminado" "Prazo indeterminado" "Prazo indeterminado" "Prazo indeterminado" ...
##   ..$ description.rescision         : chr [1:41] "Encerramento das atividades" "Encerramento das atividades" "Encerramento das atividades" "Encerramento das atividades" ...
##   ..$ interest.rate                 : num [1:41] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ value.balance                 : chr [1:41] "R$ 0,00" "R$483.000,00" "R$1.318.000,00" "R$1.000,00" ...
##  $ df_other_events            :'data.frame': 1 obs. of  12 variables:
##   ..$ CNPJ_CIA              : chr "89.850.341/0001-60"
##   ..$ DENOM_CIA             : chr "GRENDENE S.A."
##   ..$ DT_REFER              : Date[1:1], format: "2020-01-01"
##   ..$ CD_CVM                : num 19615
##   ..$ ID_DOC                : num 100932
##   ..$ VERSAO                : num 9
##   ..$ approval.date         : Date[1:1], format: "2018-04-23"
##   ..$ type.event            : chr "Desdobramento"
##   ..$ qtd.ord.shares.before : num 3.01e+08
##   ..$ qtd.ord.shares.after  : num 9.02e+08
##   ..$ qtd.pref.shares.before: num 0
##   ..$ qtd.pref.shares.after : num 0
##  $ df_stock_repurchases       :'data.frame': 4 obs. of  16 variables:
##   ..$ CNPJ_CIA                     : chr [1:4] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60"
##   ..$ DENOM_CIA                    : chr [1:4] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A."
##   ..$ DT_REFER                     : Date[1:4], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM                       : num [1:4] 19615 19615 19615 19615
##   ..$ ID_DOC                       : num [1:4] 100932 100932 100932 100932
##   ..$ VERSAO                       : num [1:4] 9 9 9 9
##   ..$ date.decision                : Date[1:4], format: "2020-03-25" "2019-04-25" ...
##   ..$ date.start.repurchase        : Date[1:4], format: "2020-03-25" "2019-04-25" ...
##   ..$ date.end.repurchase          : Date[1:4], format: "2021-09-16" "2020-03-25" ...
##   ..$ available.capital.repurchase : num [1:4] 25205940 29188481 14563536 16117227
##   ..$ type.stock                   : chr [1:4] "Ordinária" "Ordinária" "Ordinária" "Ordinária"
##   ..$ qtd.stocks.repurchased       : num [1:4] 0 1467613 1312343 1185681
##   ..$ qtd.stocks.predicted         : num [1:4] 2.5e+07 6.0e+06 2.0e+06 1.5e+06
##   ..$ average.price                : num [1:4] 0 11.1 26.8 17.6
##   ..$ percent.stock.float.purchased: num [1:4] 0 24.5 65.6 79
##   ..$ percent.stock.float.predicted: chr [1:4] "9.220000" "2.220000" "2.380000" "1.820000"
##  $ df_debt_composition        :'data.frame': 2 obs. of  13 variables:
##   ..$ CNPJ_CIA               : chr [1:2] "89.850.341/0001-60" "89.850.341/0001-60"
##   ..$ DENOM_CIA              : chr [1:2] "GRENDENE S.A." "GRENDENE S.A."
##   ..$ DT_REFER               : Date[1:2], format: "2020-01-01" "2020-01-01"
##   ..$ CD_CVM                 : num [1:2] 19615 19615
##   ..$ ID_DOC                 : num [1:2] 100932 100932
##   ..$ VERSAO                 : num [1:2] 9 9
##   ..$ type.debt              : chr [1:2] "Empréstimo" "Financiamento"
##   ..$ type.debt.guarantee    : chr [1:2] "Garantia Real" "Quirografárias"
##   ..$ debt.value.under.1.year: num [1:2] 1.04e+07 2.88e+08
##   ..$ debt.value.1.to.3.years: num [1:2] 10340527 72663044
##   ..$ debt.value.3.to.5.years: num [1:2] 0 1064371
##   ..$ debt.value.more.5.years: num [1:2] 0 0
##   ..$ debt.total             : num [1:2] 2.07e+07 3.61e+08
##  $ df_board_composition       :'data.frame': 16 obs. of  22 variables:
##   ..$ CNPJ_CIA                : chr [1:16] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA               : chr [1:16] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER                : Date[1:16], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM                  : num [1:16] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC                  : num [1:16] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO                  : num [1:16] 9 9 9 9 9 9 9 9 9 9 ...
##   ..$ person.name             : chr [1:16] "Gelson Luis Rostirolla" "Rudimar Dall Onder" "Alceu Demartini de Albuquerque" "Alexandre Grendene Bartelle" ...
##   ..$ person.cpf              : num [1:16] 1.48e+10 2.55e+10 9.56e+10 9.87e+09 4.30e+09 ...
##   ..$ person.profession       : chr [1:16] "Administrador de Empresas" "Engenheiro Mecânico" "Administrador de Empresas" "Industrial" ...
##   ..$ person.cv               : chr [1:16] "Formação: Administração de Empresas (1977) e Ciências Contábeis (1979) pela UNOESC – Universidade do Oeste Cata"| __truncated__ "Formação: Engenharia Mecânica (1981) pela Universidade de Caxias do SUL (UCS). Iniciou suas atividades na Compa"| __truncated__ "Formação: Master of Business Administration. University of Illinois, conclusão julho 2019. Pós-graduado em Rela"| __truncated__ "Fundador da Companhia e Presidente do Conselho de Administração desde 18 de agosto de 2004. \n\nFormação: Bacha"| __truncated__ ...
##   ..$ person.dob              : Date[1:16], format: NA NA ...
##   ..$ code.type.board         : chr [1:16] "1" "1" "1" "2" ...
##   ..$ desc.type.board         : chr [1:16] "Director" "Director" "Director" "Management Council" ...
##   ..$ desc.type.board2        : logi [1:16] NA NA NA NA NA NA ...
##   ..$ code.type.job           : chr [1:16] "11" "10" "12" "20" ...
##   ..$ desc.job                : chr [1:16] "Não ocupa outras funções no emissor." "Diretor Administrativo Financeiro, Membro do Comitê de Investimentos e Membro do Comitê de Partes Relacionadas" "Membro do Comitê de Investimentos e Membro do Comitê de Partes Relacionadas" "Presidente do comitê de gestão do programa de stock option e membro do Comitê de Investimentos" ...
##   ..$ date.election           : Date[1:16], format: "2019-02-14" "2019-02-14" ...
##   ..$ date.effective          : Date[1:16], format: "2019-02-14" "2019-02-14" ...
##   ..$ mandate.duration        : chr [1:16] "3 anos" "3 anos" "3 anos" "2 anos" ...
##   ..$ ellected.by.controller  : logi [1:16] TRUE TRUE TRUE TRUE TRUE TRUE ...
##   ..$ qtd.consecutive.mandates: num [1:16] 6 6 1 9 9 9 9 9 8 1 ...
##   ..$ percentage.participation: num [1:16] 0 0 0 100 100 100 100 100 100 0 ...
##  $ df_committee_composition   :'data.frame': 13 obs. of  22 variables:
##   ..$ CNPJ_CIA                : chr [1:13] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA               : chr [1:13] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER                : Date[1:13], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM                  : num [1:13] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC                  : num [1:13] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO                  : num [1:13] 9 9 9 9 9 9 9 9 9 9 ...
##   ..$ person.name             : chr [1:13] "Carlos Augusto Leone Piani" "Alceu Demartini de Albuquerque" "Rudimar Dall Onder" "Rafael Vieira Grazziotin" ...
##   ..$ person.cpf              : num [1:13] 2.53e+09 9.56e+10 2.55e+10 7.00e+10 3.54e+10 ...
##   ..$ person.profession       : chr [1:13] "Administrador de Empresas" "Administrador de Empresas" "Engenheiro Mecânico" "Advogado" ...
##   ..$ person.cv               : chr [1:13] "O Sr. Carlos Augusto Leone Piani é presidente da divisão canadense da Kraft Heinz Company, tendo sido diretor d"| __truncated__ "Formação: Master of Business Administration. University of Illinois, conclusão julho 2019. Pós-graduado em Rela"| __truncated__ "Formação: Engenharia Mecânica (1981) pela Universidade de Caxias do SUL (UCS). Iniciou suas atividades na Compa"| __truncated__ "O Sr. Rafael Vieira Grazziotin, advogado graduado pela Universidade de Caxias do Sul, com pós graduação em Dire"| __truncated__ ...
##   ..$ person.dob              : Date[1:13], format: NA NA ...
##   ..$ code.type.committee     : chr [1:13] "9" "9" "9" "9" ...
##   ..$ desc.type.committee     : chr [1:13] "Other Committee" "Other Committee" "Other Committee" "Other Committee" ...
##   ..$ code.type.job           : chr [1:13] "3" "3" "3" "3" ...
##   ..$ desc.committee          : chr [1:13] "Comitê de Investimentos" "Comitê de Partes Relacionadas" "Comitê de Partes Relacionadas" "Comitê de Partes Relacionadas" ...
##   ..$ desc.job                : chr [1:13] "Não ocupa outros cargos/funções no emissor." "Diretor de Relações com Investidores e Membro do Comitê de Investimentos" "Diretor Presidente, Diretor Administrativo Financeiro, Membro do Comitê de Investimentos" "Não ocupa outros cargos/funções no emissor." ...
##   ..$ date.election           : Date[1:13], format: "2020-08-13" "2020-08-13" ...
##   ..$ date.effective          : Date[1:13], format: "2020-08-13" "2020-08-13" ...
##   ..$ mandate.duration        : chr [1:13] "3 anos" "2 anos" "2 anos" "2 anos" ...
##   ..$ qtd.consecutive.mandates: num [1:13] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ percentage.participation: num [1:13] 100 100 100 100 100 100 100 100 100 100 ...
##   ..$ other.committes         : chr [1:13] "Comitê de Investimentos" "Comitê de Partes Relacionadas" "Comitê de Partes Relacionadas" "Comitê de Partes Relacionadas" ...
##  $ df_family_relations        :'data.frame': 6 obs. of  14 variables:
##   ..$ CNPJ_CIA           : chr [1:6] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA          : chr [1:6] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER           : Date[1:6], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM             : num [1:6] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC             : num [1:6] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO             : num [1:6] 9 9 9 9 9 9
##   ..$ person.name        : chr [1:6] "Pedro Grendene Bartelle" "Alexandre Grendene Bartelle" "Pedro Grendene Bartelle" "Pedro Grendene Bartelle" ...
##   ..$ person.cpf         : num [1:6] 9.86e+09 9.87e+09 9.86e+09 9.86e+09 9.86e+09 ...
##   ..$ person.job         : chr [1:6] "Vice Presidente do Conselho de Administração" "Presidente do Conselho de Administração" "Vice Presidente do Conselho de Administração" "Vice Presidente do Conselho de Administração" ...
##   ..$ related.person.name: chr [1:6] "Alexandre Grendene Bartelle" "Pedro Grendene Bartelle" "Pedro Bartelle" "Giovana Bartelle Velloso" ...
##   ..$ related.person.cpf : num [1:6] 9.87e+09 9.86e+09 6.86e+10 6.86e+10 3.54e+10 ...
##   ..$ related.person.job : chr [1:6] "Presidente do Conselho de Administração" "Vice Presidente do Conselho de Administração" "Acionista" "Acionista" ...
##   ..$ code.relationship  : chr [1:6] "2" "2" "3" "3" ...
##   ..$ desc.relationship  : chr [1:6] "Irmão ou Irmã (1º grau por consangüinidade)" "Irmão ou Irmã (1º grau por consangüinidade)" "Filho ou Filha (1º grau por consangüinidade)" "Filho ou Filha (1º grau por consangüinidade)" ...
##  $ df_family_related_companies:'data.frame': 15 obs. of  15 variables:
##   ..$ CNPJ_CIA            : chr [1:15] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA           : chr [1:15] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER            : Date[1:15], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM              : num [1:15] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC              : num [1:15] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO              : num [1:15] 9 9 9 9 9 9 9 9 9 9 ...
##   ..$ person.name         : chr [1:15] "Pedro Grendene Bartelle" "Pedro Grendene Bartelle" "Maílson Ferreira da Nóbrega" "Renato Ochman" ...
##   ..$ person.cpf          : num [1:15] 9.86e+09 9.86e+09 4.30e+09 3.76e+10 3.76e+10 ...
##   ..$ person.job          : chr [1:15] "Vice-Presidente do Conselho de Administração" "Vice-Presidente do Conselho de Administração" "Conselheiro de Administração" "Conselheiro de Administração" ...
##   ..$ type.related.person : chr [1:15] "Cliente" "Cliente" "Fornecedor" "Fornecedor" ...
##   ..$ type.relationship   : chr [1:15] "Controle" "Controle" "Controle" "Controle" ...
##   ..$ observations        : chr [1:15] "Venda de insumos e matrizes - Prazo médio de recebimento 21 dias" "Venda de matrizes - Prazo médio de recebimento 43 dias" "Assessoria" "Assessoria" ...
##   ..$ related.company.name: chr [1:15] "Vulcabras|azaleia – CE, Calçados e Artigos Esportivos S.A." "Vulcabras|azaleia – BA, Calçados e Artigos Esportivos S.A." "Mailson da Nóbrega Consultoria S/C Ltda" "Ochman, Real Amadeo Advogados Associados" ...
##   ..$ related.company.cnpj: num [1:15] 9.54e+11 7.34e+11 1.58e+12 6.24e+13 6.24e+13 ...
##   ..$ related.company.job : chr [1:15] "Acionista Controlador" "Acionista controlador" "Sócio proprietário" "Sócio proprietário" ...
##  $ df_auditing                :'data.frame': 1 obs. of  14 variables:
##   ..$ CNPJ_CIA                  : chr "89.850.341/0001-60"
##   ..$ DENOM_CIA                 : chr "GRENDENE S.A."
##   ..$ DT_REFER                  : Date[1:1], format: "2020-01-01"
##   ..$ CD_CVM                    : num 19615
##   ..$ ID_DOC                    : num 100932
##   ..$ VERSAO                    : num 9
##   ..$ auditor.name              : chr "Ernst & Young Auditores Independentes S/S"
##   ..$ auditor.cnpj              : chr "61366936001105"
##   ..$ contract.first.date       : Date[1:1], format: NA
##   ..$ contract.last.date        : Date[1:1], format: NA
##   ..$ description.contract      : chr "Revisão dos ITR's (controladora e Consolidado) e auditoria anual de balanço da Controladora e Consolidado."
##   ..$ compensation              : chr "Para o exercício encerrado em 31/12/2017 - R$409,2 mil, referente a serviços de auditoria prestados e R$131,1 m"| __truncated__
##   ..$ justification.substitution: logi NA
##   ..$ reason.discordance        : logi NA
##  $ df_responsible_docs        :'data.frame': 2 obs. of  9 variables:
##   ..$ CNPJ_CIA   : chr [1:2] "89.850.341/0001-60" "89.850.341/0001-60"
##   ..$ DENOM_CIA  : chr [1:2] "GRENDENE S.A." "GRENDENE S.A."
##   ..$ DT_REFER   : Date[1:2], format: "2020-01-01" "2020-01-01"
##   ..$ CD_CVM     : num [1:2] 19615 19615
##   ..$ ID_DOC     : num [1:2] 100932 100932
##   ..$ VERSAO     : num [1:2] 9 9
##   ..$ person.cod : chr [1:2] "50" "51"
##   ..$ person.name: chr [1:2] "Rudimar Dall Onder" "Alceu Demartini de Albuquerque"
##   ..$ person.job : chr [1:2] "Diretor Presidente" "Diretor de Relações com Investidores"
##  $ df_stocks_details          :'data.frame': 1 obs. of  16 variables:
##   ..$ CNPJ_CIA           : chr "89.850.341/0001-60"
##   ..$ DENOM_CIA          : chr "GRENDENE S.A."
##   ..$ DT_REFER           : Date[1:1], format: "2020-01-01"
##   ..$ CD_CVM             : num 19615
##   ..$ ID_DOC             : num 100932
##   ..$ VERSAO             : num 9
##   ..$ type.stock.id      : chr "1"
##   ..$ type.stock.text    : chr "Ordinária"
##   ..$ tag.along          : num 100
##   ..$ preferential.code  : chr "0"
##   ..$ preferential.text  : logi NA
##   ..$ dividend.text      : chr "Conforme o Estatuto Social da Companhia, art.32, os acionistas fazem jus a dividendo obrigatório anual equivale"| __truncated__
##   ..$ flag.voting.rights : chr "1"
##   ..$ flag.voting.text   : chr "Pleno"
##   ..$ flag.conversibility: chr "Não"
##   ..$ other.info.text    : chr "Não existem características relevantes adicionais."
##  $ df_dividends_details       :'data.frame': 1 obs. of  11 variables:
##   ..$ CNPJ_CIA            : chr "89.850.341/0001-60"
##   ..$ DENOM_CIA           : chr "GRENDENE S.A."
##   ..$ DT_REFER            : Date[1:1], format: "2020-01-01"
##   ..$ CD_CVM              : num 19615
##   ..$ ID_DOC              : num 100932
##   ..$ VERSAO              : num 9
##   ..$ net.profit          : num 4.95e+08
##   ..$ distributed.dividend: num 2.76e+08
##   ..$ retained.profit     : num 2.19e+08
##   ..$ payout              : num 55.7
##   ..$ div.yeild.on.equity : num 14.3
##  $ df_intangible_details      :'data.frame': 13 obs. of  10 variables:
##   ..$ CNPJ_CIA   : chr [1:13] "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" "89.850.341/0001-60" ...
##   ..$ DENOM_CIA  : chr [1:13] "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." "GRENDENE S.A." ...
##   ..$ DT_REFER   : Date[1:13], format: "2020-01-01" "2020-01-01" ...
##   ..$ CD_CVM     : num [1:13] 19615 19615 19615 19615 19615 ...
##   ..$ ID_DOC     : num [1:13] 100932 100932 100932 100932 100932 ...
##   ..$ VERSAO     : num [1:13] 9 9 9 9 9 9 9 9 9 9 ...
##   ..$ id         : num [1:13] 1033 1034 1035 1036 1037 ...
##   ..$ id.type    : num [1:13] 2 2 2 2 2 2 2 2 2 2 ...
##   ..$ patent.desc: chr [1:13] "Mel" "Nuar" "Pega Forte" "Galeria Melissa" ...
##   ..$ duration   : Date[1:13], format: NA NA ...

To leave a comment for the author, please follow the link and comment on their blog: R | msperlin.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)