R shiny checkbox et reactivite

Bonjour,

Je suis novice sur R shiny, j'ai récupéré un code afin de l'appliquer à ma problématique mais il me manque une chose.
Tout d'abord, côté UI j'ai plusieurs checkboxGroup, et une infobox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

box( width = 4,   checkboxGroupButtons("dpt", "Departement choisi", choices = c(unique(nBase5$dpt))), checkboxGroupInput("sigle", "sigle choisi", choices = c(unique(nBase5$sigle))) ), infoBox( title = "Effectifs", value = textOutput("progression"), subtitle = "Nombre d'effectifs", fill = TRUE, color = "light-blue", width = 4 ),

---

côté server :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

donnees <- reactive({ if (input$dpt == "Tous les departements") { evol = count(nBase5$dpt)   } else { evol = nBase5 %>% filter(LIBDEP == input$dpt)   } evol }) output$progression <- renderText({ evol = donnees() length(evol$eff) })

---

Le but est que lorsque je coche une case, j'ai le nombre d'effectifs qui s'affiche selon la case cochée (ok ça fonctionne pour département), mais, si je coche plusieurs cases les effectifs ne s'ajoutent pas.
Deuxième point, lorsque je mets une autre checkbox comment est ce que je fais pour que cette infobox change en prenant en compte toutes les cases cochées d'une autre variable également

D'avance merci