Shinyjs可以做类似if(is_disabled("#my_element_id")) do_something()的事情吗?
我希望能够在执行其他操作之前查看是否已禁用特定的HTML元素(通过Shinyjs或其他方式)。

最佳答案

没有这样的功能。答案取决于您到底想要什么。这可能会有所帮助:

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)

关于javascript - 查询任意html元素,例如看看是否被禁用,与shinyjs,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/60126150/

10-12 22:39