Update tjsp_ler_movimentacao.R

jjesusfilho · Sep 12, 2023 · 8cae5f3 · 8cae5f3
1 parent 5bc2fc8
commit 8cae5f3
Showing 1 changed file with 5 additions and 11 deletions.
diff --git a/R/tjsp_ler_movimentacao.R b/R/tjsp_ler_movimentacao.R
@@ -32,17 +32,11 @@ tjsp_ler_movimentacao <- function(arquivos = NULL,diretorio = ".") {
     resposta <- xml2::read_html(.x)
 
 
-    processo <- resposta |>
-      xml2::xml_find_first("//span[contains(@class,'unj-larger')]") |>
-      xml2::xml_text() |>
-      stringr::str_squish() |>
-      stringr::str_remove_all("[^\\d+\\s]") |>
-      stringr::str_trim()
-
-   cd_processo <- resposta |>
-      xml2::xml_find_first("//script[contains(text(),'processo.codigo')]") |> 
-      xml2::xml_text() |>
-      stringr::str_extract("(?<=processo.codigo=)\\w+")
+    processo <- .x |>
+             stringr::str_extract("\\d{20}")
+
+      cd_processo <- .x |>
+             stringr::str_extract("(?<=cd_processo_)\\w+")
 
     texto <- resposta |>
       xml2::xml_find_first(xpath = "//table/tbody[@id='tabelaTodasMovimentacoes']")