feat: add package user agent

m-muecke · Dec 10, 2023 · fddd488 · fddd488
1 parent 3635126
commit fddd488
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -13,6 +13,7 @@ importFrom(httr2,req_perform)
 importFrom(httr2,req_perform_iterative)
 importFrom(httr2,req_url_path_append)
 importFrom(httr2,req_url_query)
+importFrom(httr2,req_user_agent)
 importFrom(httr2,request)
 importFrom(httr2,resp_body_json)
 importFrom(httr2,resps_data)
diff --git a/R/wb.R b/R/wb.R
@@ -250,6 +250,7 @@ worldbank <- function(resource, resp_data, ..., page = NULL) {
 
 worldbank_page <- function(resource, resp_data, ..., page = 1) {
   request("http://api.worldbank.org/v2") |>
+    req_user_agent("worldbank (https://m-muecke.github.io/worldbank)") |>
     req_url_path_append(resource) |>
     req_url_query(..., format = "json", page = page) |>
     req_perform() |>
@@ -258,6 +259,7 @@ worldbank_page <- function(resource, resp_data, ..., page = 1) {
 
 worldbank_iter <- function(resource, resp_data, ...) {
   req <- request("http://api.worldbank.org/v2") |>
+    req_user_agent("worldbank (https://m-muecke.github.io/worldbank)") |>
     req_url_path_append(resource) |>
     req_url_query(..., format = "json")
 

diff --git a/R/worldbank-package.R b/R/worldbank-package.R
@@ -7,6 +7,7 @@
 #' @importFrom httr2 req_perform_iterative
 #' @importFrom httr2 req_url_path_append
 #' @importFrom httr2 req_url_query
+#' @importFrom httr2 req_user_agent
 #' @importFrom httr2 request
 #' @importFrom httr2 resp_body_json
 #' @importFrom httr2 resps_data