rkw/stAndrews
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: return unique subdivision IDs when "All" selected

Browse Source 
Co-authored-by: aider (deepseek/deepseek-chat) <aider@aider.chat>
This commit is contained in:
Rob Wiederstein
2026-03-13 06:24:30 -04:00
parent 50f0964de7
commit e0cf03df2f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app.R
View File

@@ -361,13 +361,13 @@ server <- function(input, output, session) {
filteredSbdvn <- reactive({ filteredSbdvn <- reactive({
if (is.null(input$sub_name) || input$sub_name == "All") { if (is.null(input$sub_name) || input$sub_name == "All") {
return(sbdvn$max_sub_id) return(unique(sbdvn$max_sub_id))
} else { } else {
return( return(
sbdvn %>% sbdvn %>%
filter(sub_name == input$sub_name) %>% filter(sub_name == input$sub_name) %>%
pull(max_sub_id) pull(max_sub_id)
) )
} }
}) })