Metropolitan-Council / travel-study-stories

Travel Behavior Inventory analysis and interactive visualization
https://metrotransitmn.shinyapps.io/travel-survey-explorer/
GNU General Public License v3.0
2 stars 0 forks source link

re-set city/township selectinput box when county is cleared #19

Open ashleyasmus opened 2 years ago

ashleyasmus commented 2 years ago

maybe I need to turn off "ignoreNULL" in this part of mod_filters_oneway.R?

    observeEvent(input$oneway_input_counties,
                 {
                   if (!is.null(input$oneway_input_counties))
                   {
                     filtered_cities <- tbi_tables$hh %>%
                       dplyr::filter(hh_county %in% input$oneway_input_counties) %>%
                       dplyr::select(hh_city) %>%
                       unique() %>%
                       na.omit()

                     updateSelectInput(
                       session = session,
                       inputId = "oneway_input_cities",
                       label = "Household City/Township",
                       choices = filtered_cities$hh_city,
                       selected = NULL
                     )
                   } else {
                     selectInput(
                       session = session,
                       inputId = ns("oneway_input_cities"),
                       "Household City/Township",
                       choices = unique(na.omit(tbi_tables$hh$hh_city)),
                       selected = NULL)
                   }},
                 ignoreInit = TRUE
    )