pause arg removed

erykwalczak · May 13, 2021 · b4170b8 · b4170b8
1 parent f3b3924
commit b4170b8
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/scrape_menu.R b/R/scrape_menu.R
@@ -33,7 +33,7 @@ scrape_menu <- function(url, selector, rulebook_date) {
   # pull the html nodes
   # TODO add ua
   nodes_only <-
-    httr::RETRY("GET", url, times = 5, pause_min = 5, pause_base = 2) %>%
+    httr::RETRY("GET", url, times = 5) %>%
     PRArulebook:::extract_results()
 
   if (is.null(nodes_only)) {

diff --git a/R/scrape_rule_id.R b/R/scrape_rule_id.R
@@ -26,7 +26,7 @@ scrape_rule_id <- function(url, selector_rule_no, selector_rule_text) {
   }
 
   rules_html <-
-    httr::RETRY("GET", url, times = 5, pause_min = 5, pause_base = 2) %>%
+    httr::RETRY("GET", url, times = 5) %>%
     xml2::read_html()
 
   # pull text

diff --git a/R/zzz.R b/R/zzz.R
@@ -6,7 +6,7 @@
 # extract nodes - used in get_content
 pull_nodes <- function(x, node_to_pull) {
 
-  nodes_only_get <- httr::RETRY("GET", x, times = 5, pause_min = 5, pause_base = 2)
+  nodes_only_get <- httr::RETRY("GET", x, times = 5)
 
   # check if part is effective
   if (httr::status_code(nodes_only_get) == 200) {