Update tjsp_baixar_tabela_cd_processo.R

jjesusfilho · Jun 1, 2024 · 13bb7ee · 13bb7ee
1 parent cfc7b5f
commit 13bb7ee
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/tjsp_baixar_tabela_cd_processo.R b/R/tjsp_baixar_tabela_cd_processo.R
@@ -18,9 +18,14 @@ tjsp_baixar_tabela_cd_processo <- function (cd_processo = NULL, diretorio = ".")
     arquivo <- file.path(diretorio,paste0("tabela_cd_processo_",.x,".html"))
 
 
-    r1 <- .x |>
-      paste0("https://esaj.tjsp.jus.br/cpopg/show.do?processo.codigo=", ... = _, "&gateway=true") |>
+     if (stringr::str_detect(.x, "^DW")){
+      url1 <- paste0(url1,"&consultaDeRequisitorios=true")
+    }
+
+    r1 <- url1 |>
       httr::GET()
+
+
 
 
     if (