Al seguir esta pregunta, si checkboxGroupInput tiene inline=TRUE , disable(selector="#a .checkbox:nth-child(1) label") ya no deshabilitará la opción. ¿Hay algún ajuste en la cadena de selección? Intenté cambiarlo a checkbox-inline pero eso no funcionó.
Con el parámetro inline=TRUE , los elementos de la label no están bajo un div , por lo que puede hacer la referencia directamente a las etiquetas.
library(shiny) ui <- shinyUI(fluidPage( shinyjs::useShinyjs(), checkboxGroupInput("a", "A", choices = 1:7, inline = TRUE) )) server <- shinyServer(function(input, output, session) { observeEvent(input$a, shinyjs::disable(selector="#a label:nth-child(1)")) }) shinyApp(ui, server)Claro, solo tiene que ajustar el recopilador de consultas JS. Trate de ajustar esto en consecuencia
subElement <- paste0("#a .checkbox-inline:nth-child(", newSelection,") input")