Merge pull request #84 from RobLBaker/master

Author: RobLBaker

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: NPSutils
 Type: Package
 Title: Collection of Functions to read and manipulate information from the NPS DataStore
-Version: 1.1.0
+Version: 1.2.0
 Authors@R: c(
     person(given = "Robert", family = "Baker", email = "robert_baker@nps.gov",
            role = c("aut", "cre"),
@@ -41,7 +41,7 @@ Imports:
     purrr,
     tibble,
     lifecycle
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Suggests: 
     httptest,
     knitr,

NEWS.md

@@ -1,10 +1,19 @@
-# NPSutils 1.1.0
+# NPSutils 1.2.0 ("Apostle Islands Ice Caves")
+## 2026-02-20
+  * Fix unit tests that were failing when switched from v7 to v8 DataStore API
+  * Update to version 1.2.0 in DESCRIPTION files in anticipation of a new release
+  
+## 2026-02-12
+  * Fix bug in `get_data_packages` that was causing an error when simultaneously attempting to download multiple data packages.
+  
 ## 2026-01-02
   * DataStore API calls now use v8 endpoints (v7 was deprecated with DataStore 4.0 release)
 
 ## 2025-09-15
   * Update Unit service API to use current version (instead of discontinued legacy endpoint)
-  
+
+# NPSutils 1.1.0
+
 ## 2025-05-16
   * Add a vignette going over basic functions and how to use NPSutils
 

R/getReferenceInfo.R

@@ -23,8 +23,8 @@ get_park_taxon_refs <- function(park_code, taxon_code) {
                park_code,
                "/",
                taxon_code)
-  DSReference <- httr::content(httr::GET(
-    url, httr::authenticate(":", ":", "ntlm")
+  DSReference <- httr::content(httr::GET(url,
+                                         httr::authenticate(":", ":", "ntlm")
   )) %>%
     dplyr::bind_rows()
   return(DSReference)

R/get_data_packages.R

@@ -55,7 +55,7 @@ get_data_packages <- function(reference_id,
     }
     # does reference exist?
     exists <- NPSutils::check_ref_exists(
-      reference_id = reference_id,
+      reference_id = reference_id[i],
       secure = secure,
       dev = dev
     )
@@ -68,7 +68,7 @@ get_data_packages <- function(reference_id,
     }
     # is ref a data package?
     data_package <- check_is_data_package(
-      reference_id = reference_id,
+      reference_id = reference_id[i],
       secure = secure,
       dev = dev
     )
@@ -96,7 +96,7 @@ get_data_packages <- function(reference_id,
     # if interactive, ask whether to download newer version
     if (force == FALSE) {
       new_version <- check_new_version(
-        reference_id = reference_id,
+        reference_id = reference_id[i],
         secure = secure,
         dev = dev
       )
@@ -110,7 +110,7 @@ get_data_packages <- function(reference_id,
         var2 <- .get_user_input()
         if (var2 == 1) {
           reference_id <- get_new_version_id(
-            reference_id = reference_id,
+            reference_id = reference_id[i],
             secure = secure,
             dev = dev
           )