monitor-cidadao-dados/transformador/R/tradutor/tce_rs_opendata.R at a7bfc1be9d8cb5fe4dffbf4bb7a5443668f7fb21 · analytics-ufcg/monitor-cidadao-dados · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#' @param contratos_tce_rs_raw Dados brutos dos contratos do TCE
#' @return Dataframe contendo informações sobre os contratos do TCE-RS
#' @rdname translate_contratos_tce_rs
#' @examples
#' contratos_tce_rs_dt <- translate_contratos_tce_rs(contratos_tce_rs_raw)
translate_contratos_tce_rs <- function(contratos_tce_rs_raw){
  contratos_tce_rs_raw %<>% janitor::clean_names() %>%
    dplyr::rename(cd_u_gestora = cd_orgao) %>%
    dplyr::rename(dt_ano = ano_contrato) %>%
    dplyr::rename(nu_contrato = nr_contrato) %>%
    dplyr::rename(pr_vigencia = dt_final_vigencia) %>%
    dplyr::rename(nu_cpfcnpj = nr_documento) %>%
    dplyr::rename(nu_licitacao = nr_licitacao) %>%
    dplyr::rename(vl_total_contrato = vl_contrato) %>%
    dplyr::rename(de_obs = ds_objeto) %>%
    dplyr::rename(de_ugestora = nm_orgao)
}

#' @param orgaos_tce_rs_raw Dados brutos dos órgãos auditados pelo TCE-RS
#' @return Dataframe contendo informações sobre os órgãos
#' @rdname translate_orgaos_tce_rs
#' @examples
#' orgaos_tce_rs_dt <- translate_orgaos_tce_rs(orgaos_tce_rs_raw)
translate_orgaos_tce_rs <- function(orgaos_tce_rs_raw){
  orgaos_tce_rs_raw %<>% janitor::clean_names() %>%
    dplyr::rename(cd_u_gestora = cd_orgao) %>%
    dplyr::rename(de_ugestora = nome_orgao) %>%
    dplyr::rename(cd_ibge = cd_municipio_ibge)
}


#' @param licitacoes_tce_rs_raw Dados brutos das licitações do TCE
#' @return Dataframe contendo informações sobre as licitações do TCE-RS
#' @rdname translate_licitacoes_tce_rs
#' @examples
#' licitacoes_tce_rs_dt <- translate_licitacoes_tce_rs(licitacoes_tce_rs_raw)
translate_licitacoes_tce_rs <- function(licitacoes_tce_rs_raw){
  licitacoes_tce_rs_raw %<>% janitor::clean_names() %>%
    dplyr::rename(cd_u_gestora = cd_orgao) %>%
    dplyr::rename(dt_ano = ano_licitacao) %>%
    dplyr::rename(nu_licitacao = nr_licitacao) %>%
    dplyr::rename(de_obs = ds_objeto) %>%
    dplyr::rename(de_ugestora = nm_orgao)
}

#' @param pessoas_tce_rs_raw Dados brutos das pessoas/fornecedores
#' @return Dataframe contendo informações sobre os fornecedores da base do TCE-RS
#' @rdname translate_pessoas_tce_rs
#' @examples
#' pessoas_tce_rs_dt <- translate_pessoas_tce_rs(pessoas_tce_rs_raw)
translate_pessoas_tce_rs <- function(pessoas_tce_rs_raw){
  pessoas_tce_rs_raw %<>% janitor::clean_names() %>%
    dplyr::rename(cd_u_gestora = cd_orgao) %>%
    dplyr::rename(nu_cpfcnpj = nr_documento) %>%
    dplyr::rename(no_fornecedor = nm_pessoa)
}

#' @param empenho_licitacao_tce_rs_raw Dados brutos de empenhos, liquidações e pagamentos
#' @return Dataframe contendo informações sobre empenhos, liquidações e pagamentos da base do TCE-RS
#' @rdname translate_empenho_tce_rs
#' @examples
#' empenho_tce_rs_dt <- translate_empenho_tce_rs(empenho_licitacao_tce_rs_raw)
translate_empenho_tce_rs  <- function(empenho_licitacao_tce_rs_raw){
  empenho_licitacao_tce_rs_raw %<>% janitor::clean_names() %>%
    dplyr::rename(cd_u_gestora = cd_orgao) %>%
    dplyr::rename(nu_cpfcnpj = cnpj_cpf) %>%
    dplyr::rename(no_fornecedor = nm_credor) %>%
    dplyr::rename(dt_ano = ano_contrato) %>%
    dplyr::rename(de_historico = historico) %>%
    dplyr::rename(nu_empenho = nr_empenho) %>%
    dplyr::rename(nu_parcela = nr_pagamento) %>%
    dplyr::rename(dt_pagamento = dt_operacao) %>%
    dplyr::rename(nu_licitacao = nr_licitacao) %>%
    dplyr::rename(nu_contrato = nr_contrato) %>%
    dplyr::rename(cd_tipo_modalidade = mod_licitacao) %>%
    dplyr::rename(tp_instrumento = tp_instrumento_contratual)

}