R SHINY-禁用/启用shinyUI元素

问题描述

我正在寻找一种方法来在我的shinyUI元素上实现禁用/启用功能。Herexiaodaigh给出了如何禁用/启用actionButton(见下图)的提示，这是我想要的结果，但是代码不能用于我测试过的其他GUI元素(例如numericInput)。

(我知道conditionalPanel功能，但这不是我想要的效果。)

我非常感谢任何建议，特别是因为我对JavaScript不太熟悉。

JavaScript

您在问题中链接的代码不适用于其他输入小部件的原因是，不同的输入小部件需要不同的推荐答案调用才能禁用。另一个问题是，当SHILY创建一个输入元素时，您提供的ID有时是实际HTML输入标记的ID，而有时该ID被提供给输入标记的容器。

shinyjs包有一个disable函数，它将按原样使用任何闪亮的输入。免责声明：包是我写的。

以下是如何按照您的要求禁用numericInput

library(shiny)
runApp(shinyApp(
  ui = fluidPage(
    shinyjs::useShinyjs(),
    numericInput("test", "Test", 5),
    actionButton("submit", "Choose")
  ),
  server = function(input, output, session) {
    observeEvent(input$submit, {
      shinyjs::disable("test")
    })
  }
))

这篇关于R SHINY-禁用/启用shinyUI元素的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！