Fix: pequena correção do stf_baixar_cjsg.R

jjesusfilho · Aug 1, 2024 · 115b2f7 · 115b2f7
1 parent feb8abb
commit 115b2f7
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 6 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -29,7 +29,7 @@ export(stf_download_lawsuit)
 export(stf_download_parties)
 export(stf_download_sheet)
 export(stf_extract_date)
-export(stf_read_cjsg)
+export(stf_ler_cjsg)
 export(stf_read_document_table)
 export(stf_read_information)
 export(stf_read_parties)

diff --git a/R/stf_download_cjsg.R b/R/stf_download_cjsg.R
@@ -119,6 +119,8 @@ stf_baixar_cjsg <- function(corpo = NULL,
       body <- body |>
       jqr::jq(glue::glue('.size = {tamanho}'))
 
+      dt_arquivo <- ""
+
     } else {
 
       stop("Voc\u00EA deve informar um caminho v\u00E1lido para o corpo(json)")
@@ -163,7 +165,8 @@ stf_baixar_cjsg <- function(corpo = NULL,
     body <- body |>
       jqr::jq(glue::glue(".from = {.x}"))
 
-    arquivo <- file.path(dir, paste0("stf_",dt_arquivo,"_search_page_",.x, ".json") )
+    arquivo <- file.path(dir, paste0("stf_",dt_arquivo,"_search_page_",.x, ".json") ) |>
+               stringr::str_replace("__","_")
 
     httr::POST(url,
                encode = "json",

diff --git a/R/stf_read_cjsg.R b/R/stf_read_cjsg.R
@@ -6,7 +6,7 @@
 #' @return tibble
 #' @export
 #'
-stf_read_cjsg <- function(files = NULL, dir = "."){
+stf_ler_cjsg <- function(files = NULL, dir = "."){
 
   if (is.null(files)){
 

diff --git a/man/stf_read_cjsg.Rd → man/stf_ler_cjsg.Rd b/man/stf_read_cjsg.Rd → man/stf_ler_cjsg.Rd