From 43e4d3af285b67bc6bef6ed145816f088f23b4ed Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9?= <jjesusfilho@gmail.com>
Date: Wed, 30 Aug 2023 00:25:01 -0300
Subject: [PATCH] =?UTF-8?q?migra=C3=A7ao=20para=20cdprocesso?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 DESCRIPTION                                   |  2 +-
 NAMESPACE                                     |  1 +
 .../tjsp_combinar_docs_cd_processo.R          |  8 ++---
 man/tjsp_combinar_docs_cd_processo.Rd         | 29 +++++++++++++++++++
 4 files changed, 35 insertions(+), 5 deletions(-)
 rename tjsp_combinar_docs_cd_processo.R => R/tjsp_combinar_docs_cd_processo.R (91%)
 create mode 100644 man/tjsp_combinar_docs_cd_processo.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index 7224937..127a553 100644
--- 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
index 1af917b..4d3b0d5 100644
--- 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 b/R/tjsp_combinar_docs_cd_processo.R
similarity index 91%
rename from tjsp_combinar_docs_cd_processo.R
rename to R/tjsp_combinar_docs_cd_processo.R
index 9938136..f383a92 100644
--- a/tjsp_combinar_docs_cd_processo.R
+++ b/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
new file mode 100644
index 0000000..f48a5a0
--- /dev/null
+++ b/man/tjsp_combinar_docs_cd_processo.Rd
@@ -0,0 +1,29 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/tjsp_combinar_docs_cd_processo.R
+\name{tjsp_combinar_docs_cd_processo}
+\alias{tjsp_combinar_docs_cd_processo}
+\title{Combina docs baixados com tjsp_baixar_docs_cd_processo}
+\usage{
+tjsp_combinar_docs_cd_processo(
+  arquivos = NULL,
+  dir_origem = ".",
+  dir_destino = NULL,
+  nivel = c("processo", "doc")
+)
+}
+\arguments{
+\item{arquivos}{Vetor de arquivos}
+
+\item{dir_origem}{Diretório de origem, se não
+informar arquivos}
+
+\item{dir_destino}{Diretório destino}
+
+\item{nivel}{Juntar processo inteiro ou por documento?}
+}
+\value{
+único pdf
+}
+\description{
+Combina docs baixados com tjsp_baixar_docs_cd_processo
+}