[paramètres] Paramètres supplémentaires pour `radioButton_dsfr()`

[statnmap]

ETQ utilisateur, je souhaite avoir accès aux paramètres courants de radioButton() dans radioButton_dsfr()

Critère de validation

• [x] Le paramètre selected est présent et focntionnel dans radioButton_dsfr()

  
  ## Only run examples in interactive R sessions
  if (interactive()) {
  ui <- fluidPage_dsfr(
  radioButtons_dsfr(inputId = "inRadioButtons", 
                  label = "Input radio buttons",
                  choices = c("Item A","Item B", "Item C")),
  actionButton_dsfr("go","Change")
  )

server <- function(input, output, session) {

observeEvent(input$go,{ updateRadioButtons_dsfr( session = session, inputId = "inRadioButtons", label = "Un nouveau label", choices = c("A" = "a"), selected = "a" ) })

observeEvent(input$inRadioButtons,{ message(input$inRadioButtons) }) }

shinyApp(ui, server) }

- [x] Son utilisation est testée dans le package
![image](https://user-images.githubusercontent.com/21193866/185660117-59f80807-6042-4d76-a776-669944e35682.png)

[jdlom]

Histoire de me faire la main sur {fusen}

[jengelaere]

Validé !