Set user agent for HTTP requests

DESCRIPTION

@@ -19,6 +19,7 @@ Depends:
 Imports: 
     future.apply,
     glue,
+    httr,
     jsonlite,
     lifecycle,
     proceduralnames,

NAMESPACE

@@ -24,5 +24,6 @@ export(sign_planetary_computer)
 export(spectral_indices)
 export(spectral_indices_url)
 export(stack_rasters)
+importFrom(httr,user_agent)
 importFrom(rlang,"%||%")
 importFrom(stats,predict)

NEWS.md

@@ -50,6 +50,9 @@
 
 * `get_stac_data()` now warns if `asset_names` is `NULL` and there is more 
   than one asset per item.
+
+* Functions sending HTTP requests now set a user agent of 
+  `rsi (https://permian-global-research.github.io/rsi/)`
 
 # rsi 0.1.2
 

R/0-globals.R

@@ -0,0 +1 @@
+rsi_user_agent <- httr::user_agent("rsi (https://permian-global-research.github.io/rsi/)")

R/download.R

@@ -51,7 +51,8 @@ rsi_download_rasters <- function(items,
                                    GDAL_DISABLE_READDIR_ON_OPEN = "EMPTY_DIR",
                                    GDAL_HTTP_VERSION = "2",
                                    GDAL_HTTP_MERGE_CONSECUTIVE_RANGES = "YES",
-                                   GDAL_NUM_THREADS = "ALL_CPUS"
+                                   GDAL_NUM_THREADS = "ALL_CPUS",
+                                   GDAL_HTTP_USERAGENT = "rsi (https://permian-global-research.github.io/rsi/)"
                                  ),
                                  ...) {
   if (!inherits(aoi, "bbox")) aoi <- sf::st_bbox(aoi)

R/get_stac_data.R

@@ -217,7 +217,8 @@ get_stac_data <- function(aoi,
                             GDAL_DISABLE_READDIR_ON_OPEN = "EMPTY_DIR",
                             GDAL_HTTP_VERSION = "2",
                             GDAL_HTTP_MERGE_CONSECUTIVE_RANGES = "YES",
-                            GDAL_NUM_THREADS = "ALL_CPUS"
+                            GDAL_NUM_THREADS = "ALL_CPUS",
+                            GDAL_HTTP_USERAGENT = "rsi (https://permian-global-research.github.io/rsi/)"
                           )) {
   # query |> filter |> download |> mask |> composite |> rescale
   if (!(inherits(aoi, "sf") || inherits(aoi, "sfc"))) {

R/query_and_sign.R

@@ -65,7 +65,10 @@ rsi_query_api <- function(bbox,
     limit = limit
   )
 
-  items <- rstac::items_fetch(rstac::get_request(items))
+  items <- rstac::items_fetch(
+    rstac::get_request(items, rsi_user_agent),
+    rsi_user_agent
+  )
 
   items
 }
@@ -96,11 +99,12 @@ rsi_query_api <- function(bbox,
 sign_planetary_computer <- function(items,
                                     subscription_key = Sys.getenv("rsi_pc_key")) {
   if (subscription_key == "") {
-    rstac::items_sign(items, rstac::sign_planetary_computer())
+    rstac::items_sign(items, rstac::sign_planetary_computer(rsi_user_agent))
   } else {
     rstac::items_sign(
       items,
       rstac::sign_planetary_computer(
+        rsi_user_agent,
         headers = c("Ocp-Apim-Subscription-Key" = subscription_key)
       )
     )

R/rsi-package.R

@@ -7,6 +7,7 @@ NULL
 
 #' @importFrom rlang %||%
 #' @importFrom stats predict
+#' @importFrom httr user_agent
 
 utils::globalVariables(c(
   "dem_band_mapping",