Pause execution if request limit reached (#123)

* Sleep if request limit reached * Increment version number to 0.1.3.9000
clessn · Jun 16, 2023 · c3fb4de · c3fb4de
1 parent ad2a717
commit c3fb4de
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: locateip
 Title: Locate IP Addresses with 'ip-api'
-Version: 0.1.3
+Version: 0.1.3.9000
 Authors@R: 
     person("Judith", "Bourque", , "[email protected]", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0009-0000-3653-1530"))

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,5 @@
+# locateip (development version)
+
 # locateip 0.1.3
 
 * Added a `NEWS.md` file to track changes to the package.

diff --git a/R/locate.R b/R/locate.R
@@ -96,6 +96,11 @@ get_location <-
     resp <- create_req(ip = ip, fields = fields, lang = lang, header = header, ..., format = format) |>
       httr2::req_perform()
 
+    # If there's no remaining requests, pause execution
+    if (as.numeric(httr2::resp_header(resp, "X-Rl")) == 0) {
+      Sys.sleep(as.numeric(httr2::resp_header(resp, "X-Ttl")))
+    }
+
     return(resp)
   }