查询任意 html 元素，例如用shinyjs查看它是否被禁用

【问题标题】：query an arbitrary html element, e.g. to see if it is disabled, with shinyjs查询任意 html 元素，例如用shinyjs查看它是否被禁用
【发布时间】：2020-05-24 08:09:33
【问题描述】：

shinyjs 可以做类似if(is_disabled("#my_element_id")) do_something() 的事情吗？我希望能够先查看特定的 HTML 元素是否被禁用（通过 shinyjs 或其他方式），然后再对其进行其他操作。

【问题讨论】：

我不确定shinyjs 但这里有一个答案，您可以在其中检查元素是否被禁用，如下所示：stackoverflow.com/a/29765293/6232211

标签： javascript r shiny shinyjs

【解决方案1】：

没有这样的功能。答案取决于你到底想要什么。这里有一些可以帮助的东西：

library(shiny)
library(shinyjs)

jsCode <- 'shinyjs.isDisabled = function(params) {
  var el = $("#radiobtns");
  Shiny.setInputValue("disabled", el.prop("disabled"));
}' 

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jsCode, functions = "isDisabled"),
  actionButton("button", "Disable radio buttons"),
  radioButtons("radiobtns", "Radio buttons", c("Yes", "No"))
)

server <- function(input, output) {

  observeEvent(input$button, {
    toggleState("radiobtns")
    js$isDisabled()
  })

  observeEvent(input$disabled, {
    if(input$disabled){
      cat("disabled\n")
    }else{
      cat("enabled\n")
    }
  })

}

shinyApp(ui = ui, server = server)

【讨论】：