Skip to content

Commit

Permalink
Tidy code
Browse files Browse the repository at this point in the history
  • Loading branch information
rmbielby committed Oct 26, 2023
1 parent 8e1770d commit 7e21d96
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions server.R
Original file line number Diff line number Diff line change
Expand Up @@ -699,10 +699,10 @@ server <- function(input, output, session) {
})

# Create indicator choice depending on what's available
observe({
updateSelectInput(session, "ind_parameter", choices = meta$mainFile %>% filter(col_type == "Indicator") %>% pull(col_name))
observe({
updateSelectInput(session, "ind_parameter", choices = meta$mainFile %>% filter(col_type == "Indicator") %>% pull(col_name))
})

# Show summary stats table for an indicator
showsumstats <- function(parameter, geog_parameter) {
args <- expand.grid(ind = parameter, geog = geog_parameter, stringsAsFactors = FALSE)
Expand Down

0 comments on commit 7e21d96

Please sign in to comment.