Merge pull request #187 from USEPA/providers-as-a-filter-option-on-im…

…port-tab providers as a filter option on import tab #129
USEPA · Dec 5, 2024 · 9ff8e9f · 9ff8e9f
2 parents 6804bbe + 84d415c
commit 9ff8e9f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/mod_query_data.R b/R/mod_query_data.R
@@ -188,10 +188,9 @@ mod_query_data_ui <- function(id) {
     shiny::fluidRow(
       column(
              4,
-             shiny::checkboxGroupInput(ns("providers"), 
+             shiny::radioButtons(ns("providers"), 
              "Data Source", 
-             c("NWIS (USGS)" = "NWIS", "WQX (EPA)" = "STORET"), 
-             selected = c("NWIS", "STORET"))
+             c("NWIS (USGS)" = "NWIS", "WQX (EPA)" = "STORET", "Both (NWIS and WQX)" = "all"), selected = "all")
       )
     ),
     shiny::fluidRow(column(
@@ -402,7 +401,7 @@ mod_query_data_server <- function(id, tadat) {
       } else {
         tadat$countrycode <- input$countryocean
       }
-      if (is.null(input$providers)) {
+      if (is.null(input$providers) | input$providers == "all") {
         tadat$providers <- "null"
       } else {
         tadat$providers <- input$providers