From fd1363776d516ca14eb56f563418eb6e580c98c8 Mon Sep 17 00:00:00 2001 From: Jair Guedes Date: Wed, 20 Feb 2019 14:26:27 -0300 Subject: [PATCH 1/4] Ajeita o erro para a pl1292/1995 com id 1489 --- R/proposicoes.R | 32 ++++++++++++++++++++------------ 1 file changed, 20 insertions(+), 12 deletions(-) diff --git a/R/proposicoes.R b/R/proposicoes.R index 181a7b3..5c43f85 100644 --- a/R/proposicoes.R +++ b/R/proposicoes.R @@ -87,19 +87,27 @@ fetch_proposicao_senado <- function(id) { IdentificacaoParlamentar.SiglaPartidoParlamentar, "")), ifelse("UfAutor" %in% names(.), paste("/", UfAutor), ""))) - proposicao_specific_assunto <- - proposicao_data %>% - magrittr::extract2("Assunto") %>% - magrittr::extract2("AssuntoEspecifico") %>% - tibble::as.tibble() %>% - dplyr::rename(assunto_especifico = Descricao, codigo_assunto_especifico = Codigo) - + if (nrow(proposicao_specific_assunto) == 0) { + proposicao_specific_assunto <- + tibble::tribble(~ codigo_assunto_especifico, ~ assunto_especifico, + 0, "Não especificado") + }else { + proposicao_specific_assunto <- + proposicao_specific_assunto %>% + dplyr::rename(assunto_especifico = Descricao, codigo_assunto_especifico = Codigo) + } proposicao_general_assunto <- - proposicao_data %>% - magrittr::extract2("Assunto") %>% - magrittr::extract2("AssuntoGeral") %>% - tibble::as.tibble() %>% - dplyr::rename(assunto_geral = Descricao, codigo_assunto_geral = Codigo) + proposicao_data$Assunto$AssuntoGeral %>% + tibble::as.tibble() + if (nrow(proposicao_general_assunto) == 0) { + proposicao_general_assunto <- + tibble::tribble(~ codigo_assunto_geral, ~ assunto_geral, + 0, "Não especificado") + }else { + proposicao_general_assunto <- + proposicao_general_assunto %>% + dplyr::rename(assunto_geral = Descricao, codigo_assunto_geral = Codigo) + } proposicao_source <- proposicao_data %>% From 3acb7ab07dd6dc15c4921ef73caba032e65a4e4e Mon Sep 17 00:00:00 2001 From: Jair Guedes Date: Wed, 20 Feb 2019 17:25:21 -0300 Subject: [PATCH 2/4] Ajeita erro --- R/proposicoes.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/proposicoes.R b/R/proposicoes.R index 67d91c3..fc42819 100644 --- a/R/proposicoes.R +++ b/R/proposicoes.R @@ -88,6 +88,9 @@ fetch_proposicao_senado <- function(id) { IdentificacaoParlamentar.SiglaPartidoParlamentar, "")), ifelse("UfAutor" %in% names(.), paste("/", UfAutor), ""))) + proposicao_specific_assunto <- + proposicao_data$Assunto$AssuntoEspecifico %>% + tibble::as.tibble() if (nrow(proposicao_specific_assunto) == 0) { proposicao_specific_assunto <- tibble::tribble(~ codigo_assunto_especifico, ~ assunto_especifico, From 7864791ebd7860bbc253f05f59e072fa4dd7b84f Mon Sep 17 00:00:00 2001 From: Jair Guedes Date: Thu, 21 Feb 2019 08:19:29 -0300 Subject: [PATCH 3/4] Remove caracteres com acento --- R/proposicoes.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/proposicoes.R b/R/proposicoes.R index fc42819..caa5085 100644 --- a/R/proposicoes.R +++ b/R/proposicoes.R @@ -94,7 +94,7 @@ fetch_proposicao_senado <- function(id) { if (nrow(proposicao_specific_assunto) == 0) { proposicao_specific_assunto <- tibble::tribble(~ codigo_assunto_especifico, ~ assunto_especifico, - 0, "Não especificado") + 0, "Nao especificado") }else { proposicao_specific_assunto <- proposicao_specific_assunto %>% @@ -106,7 +106,7 @@ fetch_proposicao_senado <- function(id) { if (nrow(proposicao_general_assunto) == 0) { proposicao_general_assunto <- tibble::tribble(~ codigo_assunto_geral, ~ assunto_geral, - 0, "Não especificado") + 0, "Nao especificado") }else { proposicao_general_assunto <- proposicao_general_assunto %>% From 1f075f945d5e8a9acbf218c93d32775ec66744e9 Mon Sep 17 00:00:00 2001 From: Jair Guedes Date: Thu, 21 Feb 2019 09:35:15 -0300 Subject: [PATCH 4/4] Aumenta corbertura de testes --- tests/testthat/test_proposicoes.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/testthat/test_proposicoes.R b/tests/testthat/test_proposicoes.R index 658e19a..7486e6b 100644 --- a/tests/testthat/test_proposicoes.R +++ b/tests/testthat/test_proposicoes.R @@ -4,6 +4,7 @@ pec_241 <<- fetch_proposicao_camara(siglaTipo = "PEC", numero = 241, ano = 2016, pec_241_id <<- fetch_id_proposicao_camara("PEC", 241, 2016) pec_241_por_id <<- fetch_proposicao_camara(pec_241_id) pls_91341 <<- fetch_proposicao_senado(91341) +pls_1489 <<- fetch_proposicao_senado(1489) votacoes_pec_241 <<- fetch_votacoes(pec_241_id) relacionadas_pec_241 <<- fetch_relacionadas(pec_241_id) deferimento <- fetch_deferimento(c("102343", "109173", "115853")) @@ -50,14 +51,18 @@ test_that("fetch_proposicao_camara() usando ID", { test_that("fetch_proposicao_senado()", { expect_true(all(sapply(pls_91341, class) %in% .COLNAMES_PROPOSICAO_SENADO)) expect_true(nrow(pls_91341) != 0) + expect_true(all(sapply(pls_1489, class) %in% .COLNAMES_PROPOSICAO_SENADO)) + expect_true(nrow(pls_1489) != 0) }) test_that("fetch_proposicao_senado() not empty", { expect_true(nrow(pls_91341) != 0) + expect_true(nrow(pls_1489) != 0) }) test_that("fetch_proposicao_senado() is dataframe", { expect_true(is.data.frame(pls_91341)) + expect_true(is.data.frame(pls_1489)) }) test_that("fetch_votacoes()", {