启用禁用输入 R Shiny

【问题标题】：Enable disable input RShiny启用禁用输入 R Shiny
【发布时间】：2018-06-09 23:21:16
【问题描述】：

我有 RShiny 代码，我想用它禁用/启用带有复选框的数字输入。但是，它仅适用于禁用。

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

我该如何解决这个问题？

【问题讨论】：

标签： r server shiny shinyjs

【解决方案1】：

您的代码大部分是正确的。错误在于您正在观察的内容。如果您使用的是操作按钮，您的代码可以正常工作。但是对于checkbox，需要在checkbox未选中时禁用输入，选中时启用，而不仅仅是观察事件。

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

【讨论】：