diff --git a/R/tjsp_baixar_cjsg.R b/R/tjsp_baixar_cjsg.R index b03c764..1a5ed6c 100644 --- a/R/tjsp_baixar_cjsg.R +++ b/R/tjsp_baixar_cjsg.R @@ -11,7 +11,7 @@ #' @param fim Data final julgamento #' @param inicio_pb data inicial registro/publicação #' @param fim_pb data final registr/publicacao -#' @param comarca Vetor de códigos das comarcas +#' @param comarca Código da comarca. Uma por vez. #' @param sg "T" para origem segundo grau #' @param cr "R" para origem colégio recursal #' @param tipo "A" Para acórdãos, "D" para decisões monocráticas @@ -270,7 +270,7 @@ tjsp_baixar_cjsg1 <- function (livre = "", ementa = "", processo = "", classe = comarcaSelectedEntitiesList = "", contadorcomarca = "0", contadorMaiorcomarca = "0", - cdComarca = "", + cdComarca = comarca[1], nmComarca = "", secoesTreeSelection.values = orgao_julgador, secoesTreeSelection.text = "", @@ -284,20 +284,20 @@ tjsp_baixar_cjsg1 <- function (livre = "", ementa = "", processo = "", classe = dados.ordenacao = "dtPublicacao" ) - if (any(comarca != "")){ - - body$contadorcomarca <- length(comarca) - body$contadorMaiorcomarca <- length(comarca) - - for(i in 1:length(comarca)){ - - body <- append(body, comarca[i]) - - names(body)[length(body)]<- glue::glue("dadosComarca[{i}].cdComarca") - - } - - } + # if (any(comarca != "")){ + # + # body$contadorcomarca <- length(comarca) + # body$contadorMaiorcomarca <- length(comarca) + # + # for(i in 1:length(comarca)){ + # + # body <- append(body, comarca[i]) + # + # names(body)[length(body)]<- glue::glue("dadosComarca[{i}].cdComarca") + # + # } + + #} response <- httr::POST(link_cjsg, encode = "form", body = body, httr::accept("text/html; charset=latin1;")) diff --git a/man/tjsp_baixar_cjsg.Rd b/man/tjsp_baixar_cjsg.Rd index 37007e6..8ed1615 100644 --- a/man/tjsp_baixar_cjsg.Rd +++ b/man/tjsp_baixar_cjsg.Rd @@ -47,7 +47,7 @@ tjsp_baixar_cjsg( \item{fim_pb}{data final registr/publicacao} -\item{comarca}{Vetor de códigos das comarcas} +\item{comarca}{Código da comarca. Uma por vez.} \item{sg}{"T" para origem segundo grau} diff --git a/man/tjsp_baixar_cjsg1.Rd b/man/tjsp_baixar_cjsg1.Rd index e911e08..5f11d18 100644 --- a/man/tjsp_baixar_cjsg1.Rd +++ b/man/tjsp_baixar_cjsg1.Rd @@ -45,7 +45,7 @@ tjsp_baixar_cjsg1( \item{fim_pb}{data final registr/publicacao} -\item{comarca}{Vetor de códigos das comarcas} +\item{comarca}{Código da comarca. Uma por vez.} \item{sg}{"T" para origem segundo grau}