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.
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
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 19615 GRENDENE SA GRENDENE SA Têxtil e Ves… PJ 8985034… 26/10/… 25/02/1…
## # … with 36 more variables: DT_CANCEL <chr>, MOTIVO_CANCEL <chr>,
## # SIT_REG <chr>, DT_INI_SIT <chr>, SIT_EMISSOR <chr>,
## # DT_INI_SIT_EMISSOR <chr>, CATEG_REG <chr>, DT_INI_CATEG <chr>,
## # AUDITOR <chr>, CNPJ_AUDITOR <dbl>, TP_ENDER <chr>, LOGRADOURO <chr>,
## # COMPL <chr>, BAIRRO <chr>, CIDADE <chr>, UF <chr>, PAIS <chr>,
## # CD_POSTAL <lgl>, TEL <chr>, FAX <chr>, EMAIL <chr>, TP_RESP <chr>,
## # RESP <chr>, DT_INI_RESP <chr>, LOGRADOURO_RESP <chr>, COMPL_RESP <chr>,
## # BAIRRO_RESP <chr>, CIDADE_RESP <chr>, UF_RESP <chr>, PAIS_RESP <chr>,
## # CEP_RESP <dbl>, TEL_RESP <chr>, FAX_RESP <chr>, EMAIL_RESP <chr>,
## # TP_MERC <chr>, cnpj_number <dbl>
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.