Fix: Controla pdfs válidos em tjsp_combinar_docs...

R/tjsp_combinar_docs.R

@@ -5,14 +5,16 @@
 #'     informar arquivos
 #' @param dir_destino Diretório destino
 #' @param nivel Juntar processo inteiro ou por documento?
+#' @param forcar Padrão para TRUE. Documentos inválidos são excluídos
 #'
-#' @return único pdf
+#' @return Pdf(s) combinado(s)
 #' @export
 #'
 tjsp_combinar_docs <- function(arquivos = NULL,
                                dir_origem = ".",
                                dir_destino = NULL,
-                               nivel = c("processo", "doc")){
+                               nivel = c("processo", "doc"),
+                               forcar = TRUE){
 
   if (is.null(dir_destino) || !dir.exists(dir_destino)){
 
@@ -29,12 +31,19 @@ tjsp_combinar_docs <- function(arquivos = NULL,
   nivel = nivel[1]
 
 
+
   lista <- tibble::tibble(arquivos) |>
     dplyr::mutate(processo = stringr::str_extract(arquivos,"\\d{20}"),
                   id_doc = stringr::str_extract(arquivos,'(?<=id_doc_)\\d+') |> as.integer(),
 		  pagina_inicial = stringr::str_extract(arquivos, '(?<=inicial_)\\d+') |> as.integer()) |> # nolint
     dplyr::arrange(processo,id_doc,pagina_inicial)
 
+  if (forcar){
+
+    lista <- lista |>
+      dplyr::filter(is_pdf(arquivos))
+  }
+
   if (nivel == "processo"){
 
     lista <- dplyr::group_split(lista, processo)
@@ -68,3 +77,32 @@ tjsp_combinar_docs <- function(arquivos = NULL,
 
 }
 
+
+#' Verifica se um arquivo é pdf (vetorizado)
+#'
+#' @param x Vetor de arquivos
+#'
+#' @return Valor lógico
+#'
+is_pdf <- function(x) {
+  purrr::map_lgl(x, is_pdf1)
+}
+
+#' Verifica se um arquivo é pdf (não vetorizado)
+#'
+#' @param arquivo Suposto pdf a ser verificado
+#'
+#' @return Valor lógico
+#'
+is_pdf1 <- function(arquivo) {
+  if(file.exists(arquivo)) {
+    res <- suppressMessages(try(pdftools::pdf_info(arquivo),
+                                silent = TRUE))
+    if(class(res) != "try-error") return(TRUE)
+    warning(paste(arquivo, "Parece n\u00E3o se tratar de um pdf."))
+    return(FALSE)
+  }
+  warning(paste(arquivo, "n\u00E3o existe."))
+  return(FALSE)
+}
+

R/tjsp_combinar_docs_cd_processo.R

@@ -5,14 +5,16 @@
 #'     informar arquivos
 #' @param dir_destino Diretório destino
 #' @param nivel Juntar processo inteiro ou por documento?
+#' @param forcar Padrão para TRUE. Documentos inválidos são excluídos.
 #'
 #' @return único pdf
 #' @export
 #'
 tjsp_combinar_docs_cd_processo <- function(arquivos = NULL,
                                dir_origem = ".",
                                dir_destino = NULL,
-                               nivel = c("processo", "doc")){
+                               nivel = c("processo", "doc"),
+                               forcar = TRUE){
 
   if (is.null(dir_destino) || !dir.exists(dir_destino)){
 
@@ -35,6 +37,13 @@ tjsp_combinar_docs_cd_processo <- function(arquivos = NULL,
                   pagina_inicial = stringr::str_extract(arquivos, '(?<=inicial_)\\d+') |> as.integer()) |> # nolint
     dplyr::arrange(cd_processo,id_doc,pagina_inicial)
 
+
+  if (forcar){
+
+    lista <- lista |>
+      dplyr::filter(is_pdf(arquivos))
+  }
+
   if (nivel == "processo"){
 
     lista <- dplyr::group_split(lista, cd_processo)