From ae7c5ee361d13bcad4be3e034f97112c829220b5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jos=C3=A9=20de=20Jesus=20Filho?= Date: Mon, 15 Apr 2024 17:38:38 -0300 Subject: [PATCH] Update tjsp_ler_dados_cposg.R --- R/tjsp_ler_dados_cposg.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/R/tjsp_ler_dados_cposg.R b/R/tjsp_ler_dados_cposg.R index c73ab5d..9dc0300 100644 --- a/R/tjsp_ler_dados_cposg.R +++ b/R/tjsp_ler_dados_cposg.R @@ -38,6 +38,9 @@ tjsp_ler_dados_cposg <- function(arquivos = NULL, diretorio = ".", wide = TRUE) xml2::xml_text(trim = T) |> stringr::str_remove_all("\\D+") + cd_processo_pg <- stringr::str_extract(.x,"(?<=processo_pg_)\\w+?(?=_)") + + digital <- resposta |> xml2::xml_find_first("boolean(//*[@id='pbVisualizarAutos'] |//*[@id='linkConsultaSG'])") situacao <- resposta |> xml2::xml_find_first("//span[@id='situacaoProcesso']") |> @@ -51,7 +54,7 @@ tjsp_ler_dados_cposg <- function(arquivos = NULL, diretorio = ".", wide = TRUE) xml2::xml_find_all("//span[@class='unj-label']/following-sibling::div") |> xml2::xml_text() - tibble::tibble(processo = processo, cd_processo, processo_pg, digital, situacao, variavel = nomes, + tibble::tibble(processo = processo, cd_processo, processo_pg, cd_processo_pg, digital, situacao, variavel = nomes, valor = valores) }, otherwise = NULL))