From b4170b847a84d604d97b7d7d5e0979d2b945f346 Mon Sep 17 00:00:00 2001
From: erzk <erykjwalczak@gmail.com>
Date: Thu, 13 May 2021 09:58:43 +0100
Subject: [PATCH] pause arg removed

---
 R/scrape_menu.R    | 2 +-
 R/scrape_rule_id.R | 2 +-
 R/zzz.R            | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/scrape_menu.R b/R/scrape_menu.R
index b2eedf3..ceec4ac 100644
--- 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
index a828c6a..9235573 100644
--- 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
index a132ea1..e882a64 100644
--- 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) {