From 388d85038d7a2217c90992cb7bd4abbbc1a1fd69 Mon Sep 17 00:00:00 2001
From: rafapereirabr <rafa.pereira.br@gmail.com>
Date: Wed, 30 Aug 2023 16:58:29 -0300
Subject: [PATCH] remove timeout

---
 .github/workflows/R-CMD-check-CRAN.yaml | 2 --
 r-package/R/utils.R                     | 6 +++---
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/.github/workflows/R-CMD-check-CRAN.yaml b/.github/workflows/R-CMD-check-CRAN.yaml
index 2f23af3..4a81e52 100644
--- a/.github/workflows/R-CMD-check-CRAN.yaml
+++ b/.github/workflows/R-CMD-check-CRAN.yaml
@@ -6,14 +6,12 @@ on:
       - r-package/**
     branches:
       - main
-      - master
       - dev
   pull_request:
     paths:
       - r-package/**
     branches:
       - main
-      - master
       - dev
 
 name: R-CMD-check-as-CRAN
diff --git a/r-package/R/utils.R b/r-package/R/utils.R
index 306d237..687f44c 100644
--- a/r-package/R/utils.R
+++ b/r-package/R/utils.R
@@ -199,7 +199,7 @@ download_data <- function(url, progress_bar = showProgress){
       # download data
       try( silent = TRUE,
            httr::GET(url=url,
-                httr::timeout(10), ### 666 add time out to every httr::GET
+               # httr::timeout(10), ### 666 add time out to every httr::GET
                 if(isTRUE(progress_bar)){httr::progress()},
                 httr::write_disk(temps, overwrite = T))
            )
@@ -246,7 +246,7 @@ download_data <- function(url, progress_bar = showProgress){
         i <- match(c(x),url)
         try( silent = TRUE,
              httr::GET(url=x, #httr::progress(),
-                  httr::timeout(10),
+                  # httr::timeout(10),
                   httr::write_disk(temps, overwrite = T))
              )
         if(isTRUE(progress_bar)){ utils::setTxtProgressBar(pb, i) }
@@ -409,7 +409,7 @@ check_connection <- function(url = 'https://www.ipea.gov.br/geobr/aopdata/metada
   # test server connection
   x <- try(silent = TRUE,
            httr::GET(url,
-                     httr::timeout(10),
+                    # httr::timeout(10),
                      config = httr::config(ssl_verifypeer = FALSE)))
   # link offline
   if (methods::is(x)=="try-error") {