从分组的单选按钮中禁用单个单选

Question

我有一个下面的闪亮代码，我正在尝试从分组的单选按钮中禁用单个单选按钮的选择。我可以使用shinyjs::disable()功能禁用完整的单选按钮。但是，无法禁用单选。

library(shiny)
library(shinyjs)
library(shinyWidgets)
if (interactive()) {

  ui <- fluidPage(
    useShinyjs(),
    radioGroupButtons(inputId = "somevalue", choices = c("A", "B", "C")),
    verbatimTextOutput("value")
  )
  server <- function(input, output) {
    output$value <- renderText({ input$somevalue })

    shinyjs::disable(id="somevalue")

  }
  shinyApp(ui, server)
}

Answer 1

您可以做

runjs("$('input[value=B]').parent().attr('disabled', true);")

或

runjs('$("#somevalue button:eq(1)").attr("disabled", true);')

或

disable(selector = "#somevalue button:eq(1)")