up

Natanaelsl · Jul 4, 2024 · 4fac1cb · 4fac1cb
1 parent 8439b7f
commit 4fac1cb
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/RGFdata.R b/R/RGFdata.R
@@ -85,6 +85,7 @@ RGFdata <- function(cod.ibge = NULL, year = NULL, power = NULL, period = NULL, a
 
 
           for (w in 1:length(period)) {
+            Sys.sleep(1)
 
             exercicio <- year[[z]]
             periodicidade = "Q"
@@ -239,6 +240,7 @@ RGFdata <- function(cod.ibge = NULL, year = NULL, power = NULL, period = NULL, a
 
 
           for (w in 1:length(period)) {
+            Sys.sleep(1)
 
             exercicio <- year[[z]]
             periodicidade = "Q"
@@ -395,6 +397,7 @@ RGFdata <- function(cod.ibge = NULL, year = NULL, power = NULL, period = NULL, a
 
 
             for (w in 1:length(period)) {
+              Sys.sleep(1)
 
               exercicio <- year[[z]]
               tempo <- period[[w]]