У меня ниже блестящий код, я пытаюсь отключить выбор одного переключателя из сгруппированных переключателей. Я могу отключить полный переключатель с помощью функции 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)
}