fix siteInfo bug on list arguments

DOI-USGS · Dec 3, 2024 · 46860bc · 46860bc
1 parent 13ab814
commit 46860bc
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/readWQPdata.R b/R/readWQPdata.R
@@ -242,8 +242,10 @@ readWQPdata <- function(...,
 
     attr(retval, "legacy") <- legacy
 
-    if (!all(is.na(retval)) && !ignore_attributes) {
-      params <- list(...)
+    if (!all(is.na(retval)) && 
+        !ignore_attributes && 
+        !service %in% c("Station", "StationWQX")) {
+      params <- convertLists(...)
       params <- params[!names(params) %in% c("dataProfile", "service")]
       retval <- create_WQP_attributes(retval, params)
     }