fix(get_hydrometrie_site]: missing attribute "query"

Closes #46
inrae · Dec 1, 2024 · b91a7ed · b91a7ed
1 parent 55899d0
commit b91a7ed
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/get_hydrometrie.R b/R/get_hydrometrie.R
@@ -94,6 +94,7 @@ get_hydrometrie_sites  <- function(...,
     endpoint = "sites",
     ...
   )
+  attributes_l <- attributes(l)
   l <- lapply(l, function(x) {
     fields <-
       c(
@@ -127,6 +128,7 @@ get_hydrometrie_sites  <- function(...,
     }
     x
   })
+  attributes(l) <- attributes_l
   convert_list_to_tibble(l)
 }