Merge pull request nationalparkservice#79 from RobLBaker/master

Update to unit service API endpoints

Author: RobLBaker

NEWS.md

@@ -1,4 +1,6 @@
 # NPSutils 1.1.0
+## 2025-09-15
+  * Update Unit service API to use current version (instead of discontinued legacy endpoint)
 ## 2025-05-16
   * Add a vignette going over basic functions and how to use NPSutils
 ## 2025-05-08

R/getParkUnitInfo.R

@@ -26,7 +26,7 @@ get_unit_code <- function(unit) { # input must have quotes to indicate strings
   f <- file.path(tempdir(), "irmadownload.xml")
   if (!file.exists(f)) {
     # access all park codes from NPS xml file
-    curl::curl_download("https://irmaservices.nps.gov/v2/rest/unit/", f) 
+    curl::curl_download("https://irmaservices.nps.gov/unit/v2/api/", f) 
   }
   result <- XML::xmlParse(file = f) # parse xml
   dat <- XML::xmlToDataFrame(result) 
@@ -55,7 +55,7 @@ get_park_code <- function(park) {
   f <- file.path(tempdir(), "irmadownload.xml")
   if (!file.exists(f)) {
     # access all park codes from NPS xml file
-    curl::curl_download("https://irmaservices.nps.gov/v2/rest/unit/", f) 
+    curl::curl_download("https://irmaservices.nps.gov/unit/v2/api/", f) 
   }
   result <- XML::xmlParse(file = f)
   dat <- XML::xmlToDataFrame(result)
@@ -85,7 +85,7 @@ get_unit_code_info <- function(code) {
   f <- file.path(tempdir(), "irmadownload.xml")
   if (!file.exists(f)) {
     # access all park codes from NPS xml file
-    curl::curl_download(paste0("https://irmaservices.nps.gov/v2/rest/unit/", f))
+    curl::curl_download(paste0("https://irmaservices.nps.gov/unit/v2/api/", f))
   }
   result <- XML::xmlParse(file = f)
   dat <- XML::xmlToDataFrame(result)
@@ -131,7 +131,7 @@ get_unit_info <- function(code = NULL,
   f <- file.path(tempdir(), "irmadownload.xml")
   if (!file.exists(f)) {
     # access all park codes from NPS xml file
-    curl::curl_download("https://irmaservices.nps.gov/v2/rest/unit/", f) 
+    curl::curl_download("https://irmaservices.nps.gov/unit/v2/api/", f) 
   }
   result <- XML::xmlParse(file = f)
   dat <- XML::xmlToDataFrame(result)

docs/news/index.html

@@ -3,7 +3,7 @@ pkgdown: 2.1.1
 pkgdown_sha: ~
 articles:
   NPSutils: NPSutils.html
-last_built: 2025-05-19T15:48Z
+last_built: 2025-09-15T21:47Z
 urls:
   reference: https://nationalparkservice.github.io/NPSutils/reference
   article: https://nationalparkservice.github.io/NPSutils/articles