From 46860bc0f57dd795d5a06671ee3d051fb8cb9e82 Mon Sep 17 00:00:00 2001
From: Laura A DeCicco <ldecicco@usgs.gov>
Date: Tue, 3 Dec 2024 14:37:56 -0600
Subject: [PATCH] fix siteInfo bug on list arguments

---
 R/readWQPdata.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/R/readWQPdata.R b/R/readWQPdata.R
index a236f7a5..5531efd1 100644
--- 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)
     }