From 13de085f4dc61930a3c0619a41b7845694aa976c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20de=20Jesus=20Filho?= <jjesusfilho@gmail.com>
Date: Thu, 22 Aug 2024 09:36:38 -0300
Subject: [PATCH] =?UTF-8?q?Feat:=20vara=20pode=20ser=20adicionada=20em=20b?=
 =?UTF-8?q?aixar=20intima=C3=A7=C3=B5es?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/tjsp_baixar_intimacoes.R | 84 +++++++++++++++++++-------------------
 1 file changed, 42 insertions(+), 42 deletions(-)

diff --git a/R/tjsp_baixar_intimacoes.R b/R/tjsp_baixar_intimacoes.R
index d15e691..04fb230 100644
--- a/R/tjsp_baixar_intimacoes.R
+++ b/R/tjsp_baixar_intimacoes.R
@@ -27,58 +27,58 @@ tjsp_baixar_intimacoes <- function(cd_foro = "",
                                    versao = c("xml","csv"),
                                    intervalo = "trimestral",
                                    diretorio = "."){
-  
-  
+
+
   cd_foro <- as.integer(cd_foro)
-  
+
   ato_fl_cumprido <- switch(situacao,
                             ambas = "",
                             cumprida = "S",
                             pendente = "N"
   )
-  
+
   if(dt_inicio == ""){
-    
+
     dt_inicio <- (Sys.Date() - 1) |> format("%d/%m/%Y")
   }
-  
+
   if(dt_fim == ""){
-    
+
     dt_fim <- (Sys.Date() -1) |> format("%d/%m/%Y")
   }
-  
+
   cd_tipo_ato <- switch(natureza_comunicacao,
                         ambas = "-1",
                         intimacao = "0",
                         citacao = "4"
   )
-  
+
   versao <- versao[[1]]
-  
+
   url1 <- switch(versao,
-                 
+
                  csv =  "https://esaj.tjsp.jus.br/intimacoesweb/exportarAtosRecebidosParaCsv.do",
-                 
+
                  xml= "https://esaj.tjsp.jus.br/intimacoesweb/consultarAtosRecebidos.do"
-                 
+
   )
-  
+
   e <- switch(versao,
               csv = ".csv",
               xml = ".xml"
   )
-  
+
   cd_usuario <- Sys.getenv("ESAJ_CD_USUARIO")
-  
-  
+
+
   datas <- agrupar_datas(dt_inicio, dt_fim, corte = intervalo)
-  
-  
+
+
   purrr::walk2(datas$data_inicial, datas$data_final, ~{
-    
+
     di <- .x
     df <- .y
-    
+
     corpo <-
       list(
         conversationId = "",
@@ -110,13 +110,13 @@ tjsp_baixar_intimacoes <- function(cd_foro = "",
         entity.cdTipoAto = cd_tipo_ato,
         entity.ato.flCumprido = ato_fl_cumprido
       )
-    
+
     r1 <-  httr::POST(url1, body = corpo, encode = "form") |>
       httr::content()
-    
-    
+
+
     dividir <- `/`
-    
+
     paginas <- r1 |>
       xml2::xml_find_first("//*[@id='textQtLinhasRow']/following-sibling::text()") |>
       xml2::xml_text() |>
@@ -124,31 +124,31 @@ tjsp_baixar_intimacoes <- function(cd_foro = "",
       as.integer() |>
       dividir(20) |>
       ceiling()
-    
+
     i <- lubridate::dmy(di) |>
       stringr::str_replace_all("\\D","_")
-    
+
     f <- lubridate::dmy(df) |>
       stringr::str_replace_all("\\D","_")
-    
-    
+
+
     p <- paginas:1
-    
+
     purrr::walk(p, ~{
-      
-   
+
+
       if (.x == max(p)){
-        
+
         page <- 2
         current_page <- 0
       } else {
-        
+
         page <- 3
         current_page <- .x
       }
-      
-      arquivo <- file.path(diretorio,paste0('pagina_',.x,"_foro_", cd_foro,"_inicio_",i,"_fim_",f,e))
-      
+
+      arquivo <- file.path(diretorio,paste0('pagina_',.x,"_foro_", cd_foro,"_vara_",cd_vara,"_inicio_",i,"_fim_",f,e))
+
       q <- structure(
         list(
           scheme = "https",
@@ -218,13 +218,13 @@ tjsp_baixar_intimacoes <- function(cd_foro = "",
         ),
         class = "url"
       )
-      
-  
+
+
       parseada <- httr::build_url(q)
-      
+
       httr::GET(parseada, httr::write_disk(arquivo, overwrite = T))
-      
+
     })
-    
+
   })
 }