如何将 checkbox:nth-child 与内联 checkboxGroupInput 一起使用？

Question

在下面的中，如果 checkboxGroupInput 有 inline=TRUE 那么 disable(selector="#a .checkbox:nth-child(1) label") 将不再禁用该选项。选择器字符串是否有调整？我尝试将其更改为 checkbox-inline，但没有用。

Answer 1

当然可以，您只需要调整 JS 查询收集器即可。尝试相应地进行调整

subElement <- paste0("#a .checkbox-inline:nth-child(", newSelection,") input")

Answer 2

使用inline=TRUE参数，label元素不在div下，因此可以直接引用标签。

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)

如何将 checkbox:nth-child 与内联 checkboxGroupInput 一起使用？

How to use checkbox:nth-child with inline checkboxGroupInput?

javascript

r

jquery-selectors

shiny

shinyjs