Conditional panel is not updating values

rimolive · April 25, 2018, 7:23pm

Hello,

I used the same code as in Superzip example to create a page with a data explorer, below is my code for the filter:

rimolive/us-elections/blob/master/server.R#L29-L53


    addLegend("bottomright", pal = pal, values = ~total_2008, opacity = 1.0,
              labFormat = labelFormat(transform = function(x) x))
})


observe({
  counties <- if (is.null(input$states)) character(0) else {
    filter(us_elections_history, state_code %in% input$states) %>%
      `$`('county_name') %>%
      unique() %>%
      sort()
  }
  stillSelected <- isolate(input$counties[input$counties %in% counties])
  updateSelectInput(session, "counties", choices = counties,
                    selected = stillSelected)
})


output$us_elections_history <- DT::renderDataTable({
  df <- us_elections_history %>%
    filter(
      is.null(input$states) | state_code %in% input$states,

This file has been truncated. show original

It turns out that when I select one State two issues happen:

Datatable shows 0 records, which is not true
Counties dropdown field never shows the County names

I tried inspecting the code, but it seems hard to debug this part. I'd love to ask for suggestions about how to solve of ir someone find a bug in the code.

rimolive · April 25, 2018, 7:30pm

Sorry, false alarm. The filter was really wrong according to my dataset. I'll pay more attention on that.