r - 从分组单选操作按钮禁用单选单选

Question

我有一个 Shiny 的代码，我试图从分组单选按钮中禁用单个单选按钮选择。我可以使用 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)")