fix bug so calling function with single station works

andypicke · May 24, 2024 · 19eb5b9 · 19eb5b9
1 parent 2dc73f8
commit 19eb5b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_coagmet_meta.R b/R/get_coagmet_meta.R
@@ -24,7 +24,7 @@ get_coagmet_meta <- function(station_id = "all", network = "coagmet") {
     janitor::clean_names()
 
   if (station_id != "all") {
-    meta <- meta |> dplyr::filter(`station` == station_id)
+    meta <- meta[meta$station == station_id, ]
   }
 
   return(meta)