From f7dab8332997a615c41bfced0699642185c0b322 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20de=20Jesus=20Filho?= <jjesusfilho@gmail.com>
Date: Wed, 14 Aug 2024 09:39:44 -0300
Subject: [PATCH] Feat: Adiciona comarca ao cjsg

---
 R/tjsp_baixar_cjsg.R     | 21 ++++++++++++++++++++-
 man/tjsp_baixar_cjsg.Rd  |  3 +++
 man/tjsp_baixar_cjsg1.Rd |  3 +++
 3 files changed, 26 insertions(+), 1 deletion(-)

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}