Réinitialiser les boutons radio en brillant à la valeur vide

Il est généralement admis (bien que, bien sûr, rien de basé sur l'opinion ne soit à 100%) que les boutons radio ne doivent pas être utilisés si vous voulez que l'utilisateur puisse revenir à l'état d'origine sans sélection. Même la documentation des boutons radio en brillant dit ceci:

Si vous devez représenter un état "Aucun sélectionné", il est possible de définir par défaut les boutons radio pour qu'aucune option ne soit sélectionnée en utilisant selected = character (0). Cependant, cela n'est pas recommandé, car cela ne donne à l'utilisateur aucun moyen de revenir à cet état une fois qu'il a fait une sélection. Au lieu de cela, envisagez de faire en sorte que le premier de vos choix soit c ("Aucun sélectionné" = "").

Si vous recherchez des discussions en ligne, vous verrez également qu'il est communément admis qu'un bouton radio sans sélection initiale est correct, avec la mise en garde que souvent cela signifie que l'utilisateur ne peut pas revenir à cet état après avoir effectué une sélection car la désélection n'est pas vraiment prise en charge nativement par les boutons radio.

MISE À JOUR

Une mise à jour utilisant updateRadioButtons () peut sembler fonctionner visuellement, mais cela ne réinitialise pas réellement la valeur pour être désélectionnée. La valeur sous-jacente de l'entrée est inchangée. En voici la preuve:

library(shiny)

ui <- fluidPage(
  radioButtons("btn","Click Me",choices  = c("Choice 1","Choice s"),selected = character(0)),
  actionButton("clickMe","Click Me to Reset"),
  actionButton("showValue", "Show value")
)

server <- function(input, output, session) {
  observeEvent(input$clickMe,{
    updateRadioButtons(session,"btn",choices  = c("Choice 1","Choice s"),selected = character(0))
  })

  observeEvent(input$showValue, {
    print(input$btn)
  })
}

shinyApp(ui, server)

D'accord avec @Dean Attali. Mais si c'est absolument nécessaire (non recommandé),

library(shiny)

ui <- fluidPage(
  tags$script(HTML("
              window.onload = function(){
                 var btns = document.getElementById('btn');
                 btns_radio = btns.getElementsByTagName('input');

                 for(var i = 0; i < btns_radio.length; i++){
                   btns_radio[i].addEventListener('click',function(x){
                      Shiny.onInputChange('radio_click', this.value)
                   });

                   btns_radio[i].addEventListener('dblclick',function(x){
                      if(this.checked){
                        this.checked = false;
                        Shiny.onInputChange('radio_click', null)
                      }
                   })
                   }
                 }
              ")),
  radioButtons("btn","Click Me",choices  = c("Choice 1","Choice s"),selected = character(0)),
  actionButton("showValue", "Show value")
)

server <- function(input, output, session) {
  observeEvent(input$showValue, {
    print(input$radio_click)
  })
}

shinyApp(ui, server)

Pensez à utiliser une case à cocher gorup comme alternative?

Modifier

library(shiny)

ui <- fluidPage(
  radioButtons("btn","Click Me",choices  = c("Choice 1","Choice s"),selected = character(0)),
  actionButton("clickMe","Click Me to Reset"),
  actionButton("showValue", "Show value")
)

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

  selected = reactiveVal(NULL)

  observeEvent(input$clickMe,{
    updateRadioButtons(session,"btn",choices  = c("Choice 1","Choice s"),selected = character(0))
    selected(NULL)
  })

  observeEvent(input$btn,{
    selected(input$btn)
  })


  observeEvent(input$showValue, {
    print(selected())
  })
}

shinyApp(ui, server)

@DeanAttali a la bonne idée.

resetRadioGroup = (formName, radioGroupName) => {
    let form = document.forms[formName],
        radioGroup = form && form.elements[radioGroupName],
        selectedValue = radioGroup && radioGroup.value,
        selectedRadio = form.querySelector(`[value=${selectedValue}]`);

    if(selectedRadio){
        selectedRadio.checked = undefined;
    }
}

Une alternative pourrait être de générer un nouvel identifiant pour radioButtons () chaque fois que renderUI () génère un nouveau radioButtons () . De cette façon, vous obtenez toujours une valeur NULL au début.

shinyServer(function(input, output, session) {

radio_id <- "first_time"

  output$test <- rederUI({
    radio_id <<- paste0("but", gsub("\\s+|:", "", Sys.time()))
  
    radioButtons(
        inputId = radio_id,
        label = "Choose the correct answer",
        inline = TRUE,
        choices = t_item$choices, 
        selected = character(0)
    )
  
  })

}