Maintain selected type when cases are validated

nathancday · lionel- · commit 3d921bd0597f · 2019-06-20T13:36:59.000+02:00
diff --git a/R/shiny-server.R b/R/shiny-server.R
@@ -55,13 +55,15 @@ renderTypeInput <- function(input, reactive_cases) {
       return(NULL)
     }
 
-    types <- set_names(types, prettify_types(types))
+    types <- sort(set_names(types, prettify_types(types)))
+    
+    selected <- input$type %||% types[[1]]
 
     shiny::selectInput(
       inputId = "type",
       label = "Type:",
       choices = types,
-      selected = types[[1]]
+      selected = selected
     )
   })
 }

Original file line number	Diff line number	Diff line change
`@@ -55,13 +55,15 @@ renderTypeInput <- function(input, reactive_cases) {`
`55`	`55`	`return(NULL)`
`56`	`56`	`}`
`57`	`57`
`58`		`- types <- set_names(types, prettify_types(types))`
	`58`	`+ types <- sort(set_names(types, prettify_types(types)))`
	`59`	`+`
	`60`	`+ selected <- input$type %\|\|% types[[1]]`
`59`	`61`
`60`	`62`	`shiny::selectInput(`
`61`	`63`	`inputId = "type",`
`62`	`64`	`label = "Type:",`
`63`	`65`	`choices = types,`
`64`		`- selected = types[[1]]`
	`66`	`+ selected = selected`
`65`	`67`	`)`
`66`	`68`	`})`
`67`	`69`	`}`