migraçao para cdprocesso

jjesusfilho · Aug 30, 2023 · 43e4d3a · 43e4d3a
1 parent c4cfae9
commit 43e4d3a
Show file tree

Hide file tree

Showing 4 changed files with 35 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: tjsp
-Version: 1.0.0
+Version: 2.0.0
 Date: 2023-08-08
 Title: Coleta e organização de dados do Tribunal de Justiça de São
         Paulo

diff --git a/NAMESPACE b/NAMESPACE
@@ -72,6 +72,7 @@ export(tjsp_classificar_recurso)
 export(tjsp_classificar_sentenca)
 export(tjsp_classificar_writ)
 export(tjsp_combinar_docs)
+export(tjsp_combinar_docs_cd_processo)
 export(tjsp_corrigir_varas)
 export(tjsp_cpopg_baixar_tabela_docs)
 export(tjsp_ler_acordaos_cjsg)

diff --git a/tjsp_combinar_docs_cd_processo.R → R/tjsp_combinar_docs_cd_processo.R b/tjsp_combinar_docs_cd_processo.R → R/tjsp_combinar_docs_cd_processo.R
@@ -30,7 +30,7 @@ tjsp_combinar_docs_cd_processo <- function(arquivos = NULL,
 
 
   lista <- tibble::tibble(arquivos) |>
-    dplyr::mutate(cd_processo = stringr::str_extract(arquivos,"\\w+?(?<=_id_doc)"),
+    dplyr::mutate(cd_processo = stringr::str_extract(arquivos,"\\w+?(?=_id_doc)"),
                   id_doc = stringr::str_extract(arquivos,'(?<=id_doc_)\\d+') |> as.integer(),
                   pagina_inicial = stringr::str_extract(arquivos, '(?<=inicial_)\\d+') |> as.integer()) |> # nolint
     dplyr::arrange(cd_processo,id_doc,pagina_inicial)
@@ -42,7 +42,7 @@ tjsp_combinar_docs_cd_processo <- function(arquivos = NULL,
 
     purrr::walk(lista, purrr::possibly(~{
 
-      processo <- unique(.x$cd_processo)
+      cd_processo <- unique(.x$cd_processo)
 
       qpdf::pdf_combine(.x$arquivos, file.path(dir_destino,paste0(cd_processo,".pdf")))
 
@@ -51,10 +51,10 @@ tjsp_combinar_docs_cd_processo <- function(arquivos = NULL,
 
   } else {
 
-    lista <- dplyr::group_split(lista, processo, id_doc)
+    lista <- dplyr::group_split(lista, cd_processo, id_doc)
 
     purrr::walk(lista, purrr::possibly(~{
-      processo <- unique(.x$cd_processo)
+      cd_processo <- unique(.x$cd_processo)
       id_doc <- unique(.x$id_doc)
       suppressWarnings(
         qpdf::pdf_combine(.x$arquivos, file.path(dir_destino,

diff --git a/man/tjsp_combinar_docs_cd_processo.Rd b/man/tjsp_combinar_docs_cd_processo.Rd