up

Natanaelsl · May 15, 2024 · a5d0b0f · a5d0b0f
1 parent d1079ba
commit a5d0b0f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/RGFdata.R b/R/RGFdata.R
@@ -356,12 +356,12 @@ RGFdata <- function(cod.ibge = NULL, ano = NULL, poder = NULL, periodo = NULL, a
   }
 
   # DEFININDO ESTRUTURA PARA MUNICÍPIOS
-  if(all(nchar(cod.ibge) == 7) & {simplificado} == TRUE & {periodo} == 3) {
+  if(all(nchar(cod.ibge) == 7) & {simplificado} == TRUE & (3 %in% periodo)) {
     cli::cli_alert_danger("Simplified RGF applies only to municipalities with less than 50 thousand inhabitants that have opted for biannual publication of reports. Set `periodo` to 1 or 2.")
 
   }
 
-  if((all(nchar(cod.ibge) == 7) & {simplificado} == TRUE & {periodo} != 3) | (all(nchar(cod.ibge) == 7) & {simplificado} == FALSE) ) {
+  if((all(nchar(cod.ibge) == 7) & {simplificado} == TRUE & !(3 %in% periodo)) | (all(nchar(cod.ibge) == 7) & {simplificado} == FALSE) ) {
 
     for(z in 1:length(ano)) {
       cli::cli_progress_step("EXTRACTING {ano[[z]]}", spinner = TRUE)

diff --git a/R/siconfi_list.R b/R/siconfi_list.R
@@ -75,11 +75,11 @@ siconfi_list <- function(options = NULL){
 
       if (file.exists(caminho_arquivo)) {
         utils::download.file(url, destfile = caminho_arquivo, mode = "wb")
-        cli::cli_alert_info("PDF file successfully downloaded and saved to: \n")
-        cat(caminho_arquivo)
+        cli::cli_alert_info("PDF file successfully downloaded and saved to: \n {.path {caminho_arquivo}}")
+
 
       } else {
-        cat("The path provided does not exist:\n", caminho_arquivo)
+        cli::cli_alert_danger("The path provided does not exist:\n {.path {caminho_arquivo}}")
       }
 
     }