From c6ec6b0d9375e878740769ee9ac32a4ac83005f7 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 08:38:46 -0300
Subject: [PATCH] Fix corrige tjsp_intimacoes_varas.R

---
 R/tjsp_intimacoes_varas.R | 33 +++++++++++++++++++++++++++++++--
 1 file changed, 31 insertions(+), 2 deletions(-)

diff --git a/R/tjsp_intimacoes_varas.R b/R/tjsp_intimacoes_varas.R
index 36c7873..e4c2216 100644
--- a/R/tjsp_intimacoes_varas.R
+++ b/R/tjsp_intimacoes_varas.R
@@ -10,13 +10,42 @@
 #'
 tjsp_intimacoes_varas <- function(codigo_foro){
 
+  cd_usuario <- Sys.getenv("ESAJ_CD_USUARIO")
 
-  url1 <- "https://esaj.tjsp.jus.br/intimacoesweb/AjaxServlet.ajax?entity.cdForo=100&tagId=varaService&cdUsuarioReferencia=251219&cdTipoAto=-1&cdInstancia=1&cdForo=100&filtroValue=entity.cdForo=100&component=inputSelect&bind_nmVara=entity.nmVara&bind_cdVara=entity.cdVara&useAction=false&SpwInputSelectRequestOrigin=InputSelectSearchGrid"
+  parseada <-   structure(
+    list(
+      scheme = "https",
+      hostname = "esaj.tjsp.jus.br",
+      port = NULL,
+      path = "intimacoesweb/AjaxServlet.ajax",
+      query = list(
+        entity.cdForo = codigo_foro,
+        tagId = "varaService",
+        cdUsuarioReferencia = cd_usuario,
+        cdTipoAto = "-1",
+        cdInstancia = "1",
+        cdForo = codigo_foro,
+        filtroValue = glue::glue("entity.cdForo={codigo_foro}"),
+        component = "inputSelect",
+        bind_nmVara = "entity.nmVara",
+        bind_cdVara = "entity.cdVara",
+        useAction = "false",
+        SpwInputSelectRequestOrigin = "InputSelectSearchGrid"
+      ),
+      params = NULL,
+      fragment = NULL,
+      username = NULL,
+      password = NULL
+    ),
+    class = "url"
+  )
+
+
+  url1 <- httr::build_url(parseada)
 
   r1 <- httr::GET(url1)
 
 
-cd_usuario <- Sys.getenv("ESAJ_CD_USUARIO")
 
 parseada <- structure(
   list(