|
|
@@ -254,9 +254,9 @@ server <- shinyServer(function(input, output, session) |
|
|
|
updateTabsetPanel(session, "nav", selected = "Par étudiant") |
|
|
|
} else |
|
|
|
{ |
|
|
|
print(info$y) |
|
|
|
info$y %>% str_replace("(.*?) - .*", "\\1") -> ville |
|
|
|
info$y %>% str_replace(".*? - (.*)", "\\1") -> spe |
|
|
|
plotEtudiant()$Choix %>% unique %>% sort -> choix |
|
|
|
choix[info$y] %>% str_replace("(.*?) - .*", "\\1") -> ville |
|
|
|
choix[info$y] %>% str_replace(".*? - (.*)", "\\1") -> spe |
|
|
|
|
|
|
|
updateSelectInput(session, "Ville", selected = ville) |
|
|
|
updateSelectInput(session, "Spe", selected = spe) |
|
|
|