我正在寻找一种方法来实现在我的 shinyUI 元素上禁用/启用功能。 Here xiaodaigh 给出了如何禁用/启用actionButton 的提示（见下图），这是我想要的结果，但代码并不能与我拥有的其他 gui 元素一起使用经过测试（例如numericInput）。
（我知道conditionalPanel 功能，但这不是我想要的效果。）
我非常感谢任何建议，尤其是因为我对 JavaScript 不太熟悉。
【问题讨论】：
您在问题中链接到的代码不适用于其他输入小部件的原因是，不同的输入小部件需要不同的 JavaScript 调用才能被禁用。另一个问题是，当 Shiny 创建一个输入元素时，有时您提供的 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")
})
}
))
【讨论】：
selectInput() 小部件中的特定选择执行此操作？按照您的说明，无论在 selectInput() 小部件中选择哪个选项，它似乎都会禁用我的 radioButtons() 小部件，因为服务器的输入与答案选择无关。
library(shinyjs) 丢失
library() 调用不会丢失，因为我通过在每个函数调用前面加上 shinyjs:: 明确调用了 shinyjs 函数
Dean Attali 建议的代码实际上可以稍作修改以实现按要求启用和禁用。请参见下面的示例，它根据给定的值激活或停用滑块（如果值超过范围滑块的最大值，则停用）。
library(shiny)
runApp(shinyApp(
ui = fluidPage(
shinyjs::useShinyjs(),
numericInput("val", "Choose value (max 10)", 5),
sliderInput(inputId = "range",
label = "Range",
min = 0,
max = 10,
step = 0.1,
value = c(0,2))
),
server = function(input, output, session) {
observeEvent(input$val, {
if(input$val <= 10){
shinyjs::enable("range")
}else{
shinyjs::disable("range")
}
})
}
))
【讨论】：
当某个条件为 FALSE 时，你的元素“消失”了怎么办？
如果这是您的意图，您可以将其添加到您的服务器中。R
output$sliderInputUI <- renderUI({
if (condition == TRUE) {
sliderInput("id", "text",
min = 1, max = 8,
value = 1, step = 1
)
}
})
将此添加到您的 ui.R htmlOutput("sliderInputUI")
sliderInput 只有在条件为 TRUE 时才会出现在您的 UI 中。
【讨论】：
if (!is.null(input$id)) 引用不存在的输入变量。