DOI-NPS · RobLBaker · Feb 26, 2026 · Feb 23, 2026 · Feb 26, 2026 · Feb 26, 2026
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -64,7 +64,7 @@ Imports:
     lifecycle,
     httr2,
     desc
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Suggests: 
     knitr,
     rmarkdown,

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,9 @@
 # QCkit v1.2.1
+## 2026-02-26
+  * update `get_elevation` to handle unpredictable API responses for invalid lat/long values.
+  * update unit tests to pass using DataStore v8 API
+  * update unit tests for `summarize_qc_flags` to reflect changes made in the function 
+
 ## 2025-01-09
   * `create_datastore_script` now has a new parameter, lib_type. If "R" is specified it will pull as much info as it can from the DESCRIPTION file of an R package and use that info to fill out the Core Bibliography tab on the reference landing page.
 

diff --git a/R/datastore_interactions.R b/R/datastore_interactions.R
@@ -289,7 +289,11 @@ create_datastore_script <- function(owner,
     if (force == FALSE) {
       cat("Your file, ", crayon::blue$bold(file_name),
           ", has been uploaded to:\n", sep = "")
-      cat(ds_resource_url, "\n\n", sep = "")
+
+
+      #### ds_resource_url is not a good url; needs fixing
+
+            cat(ds_resource_url, "\n\n", sep = "")
   }
   #add a web link:
   #release url:

diff --git a/R/elevation.R b/R/elevation.R
@@ -78,14 +78,15 @@ get_elevation <- function(df,
       if (req$status_code == 200) {
         gh_req_json <- suppressMessages(httr::content(req, "text"))
         # if something else went wrong - likely coordinates outside USA.
-        if (gh_req_json == "Invalid or missing input parameters."){
+        if (gh_req_json == "Invalid or missing input parameters." |
+            grepl("Call failed", gh_req_json)){
           if (force == FALSE){
             cat("Invalid input. NAs generated. Are your coordinates inside the US?")
           }
           elev <- append(elev, NA)
         } else {
         # everything checks out, add elevation to df
-        elevation <- httr::content(req)$value
+        elevation <- as.numeric(httr::content(req)$value)
         elev <- append(elev, elevation)
         }
       } else {

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/CONTRIBUTING.html b/docs/CONTRIBUTING.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html