diff --git a/R/tjsp_baixar_cjsg.R b/R/tjsp_baixar_cjsg.R index 560b1b1..b03c764 100644 --- a/R/tjsp_baixar_cjsg.R +++ b/R/tjsp_baixar_cjsg.R @@ -11,6 +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 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 @@ -38,6 +39,7 @@ tjsp_baixar_cjsg <- fim = "", inicio_pb = "", fim_pb = "", + comarca = "", sg = "T", cr = "", tipo = "A", @@ -73,6 +75,7 @@ tjsp_baixar_cjsg <- fim = .y, inicio_pb = inicio_pb, fim_pb = fim_pb, + comarca = comarca, sg = sg, cr = cr, tipo = tipo, @@ -123,6 +126,7 @@ tjsp_baixar_cjsg <- fim = fim, inicio_pb = inicio_pb, fim_pb = fim_pb, + comarca = comarca, sg = sg, cr = cr, tipo, @@ -232,7 +236,7 @@ verificar_datas <- function(inicio, fim, inicio_pb, fim_pb){ tjsp_baixar_cjsg1 <- function (livre = "", ementa = "", processo = "", classe = "", assunto = "", orgao_julgador = "", inicio = "", fim = "", - inicio_pb = "", fim_pb = "", sg = "T", cr = "", tipo = "A", + inicio_pb = "", fim_pb = "",comarca = "", sg = "T", cr = "", tipo = "A", n = NULL, diretorio = ".", aspas = FALSE) { httr::set_config(httr::config(ssl_verifypeer = FALSE, accept_encoding = "latin1")) @@ -280,6 +284,21 @@ 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") + + } + + } + 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 3a3c25f..37007e6 100644 --- a/man/tjsp_baixar_cjsg.Rd +++ b/man/tjsp_baixar_cjsg.Rd @@ -16,6 +16,7 @@ tjsp_baixar_cjsg( fim = "", inicio_pb = "", fim_pb = "", + comarca = "", sg = "T", cr = "", tipo = "A", @@ -46,6 +47,8 @@ tjsp_baixar_cjsg( \item{fim_pb}{data final registr/publicacao} +\item{comarca}{Vetor de códigos das comarcas} + \item{sg}{"T" para origem segundo grau} \item{cr}{"R" para origem colégio recursal} diff --git a/man/tjsp_baixar_cjsg1.Rd b/man/tjsp_baixar_cjsg1.Rd index c6c70fd..e911e08 100644 --- a/man/tjsp_baixar_cjsg1.Rd +++ b/man/tjsp_baixar_cjsg1.Rd @@ -15,6 +15,7 @@ tjsp_baixar_cjsg1( fim = "", inicio_pb = "", fim_pb = "", + comarca = "", sg = "T", cr = "", tipo = "A", @@ -44,6 +45,8 @@ tjsp_baixar_cjsg1( \item{fim_pb}{data final registr/publicacao} +\item{comarca}{Vetor de códigos das comarcas} + \item{sg}{"T" para origem segundo grau} \item{cr}{"R" para origem colégio recursal}