R Shiny:如何根据tagQuery()复选框的值改变按钮的颜色?

Question

我想根据复选框的值改变一个引导按钮的css类。如果复选框(input$x)的值被选中。等于TRUE，我想添加一个类，当值为false时，我想删除这个类。下面的代码是我尝试过的，但它不起作用。有人知道为什么它不起作用吗?

library(shiny)
library(tidyverse)
library(htmltools)
ui = fluidPage(

tags$style(
HTML(
".testclass {background-color: pink;")),

tags$div(style = "margin: 100px;",
tags$input(type = "checkbox", "Check", id = "x"),    

tags$button("Click", class="btn btn-default dropdown-toggle", id = "dropdownMenu1"))
)
server = function(input, output, session){

### CUSTOM FUNCTIONS

observeEvent(input$x, {
if(isTRUE(input$x)){
tagQuery(ui)$find("button")$filter(function(x, i) tagGetAttribute(x, "id") == "dropdownMenu1")$addClass("testclass")
}else{
tagQuery(ui)$find("button")$filter(function(x, i) tagGetAttribute(x, "id") == "dropdownMenu1")$removeClass("testclass")
}
})
}
shinyApp(ui, server)

Answer 1

tagQuery不执行DOM上的动作，它只是重写一个标签。你可以这样做:

library(shiny)
library(htmltools)
ui = fluidPage(

tags$style(
HTML(".testclass {background-color: pink;")
),

tags$div(
style = "margin: 100px;",

tags$input(type = "checkbox", "Check", id = "x"),    

uiOutput("mybutton")
)

)
server = function(input, output, session){

output[["mybutton"]] <- renderUI({
btn <- tags$button("Click", class="btn btn-default dropdown-toggle", id = "dropdownMenu1")
if(isTRUE(input$x)){
btn <- tagQuery(btn)$addClass("testclass")
}else{
btn <- tagQuery(btn)$removeClass("testclass")
}
btn$selectedTags()
})

}
shinyApp(ui, server)