條件面板似乎不能在閃亮儀表板上工作？

Question

ConditionalPanel似乎無法與shinydashboard一起使用， input變量如圖所示，但我無法關閉conditionalPanel塊下的slideInput 。

對我來說很奇怪，請指教。 這是我的最佳示例

library(shiny)
library(shinydashboard)

ui <- 
  dashboardPage(
    dashboardHeader(title = ""),
    dashboardSidebar(
      checkboxInput("chk", label = "checkBox",value = FALSE ),
      conditionalPanel(condition = "input.chk ==TRUE",
                       sliderInput("slide", label = "test", min = 0, max = 10, value = 5))
    ),
    dashboardBody(
      textOutput("result"),
      textOutput("checked")
    )
  )

server <- 
  function(input, output, session) {
    result <- reactive(ifelse(input$slide >5, " greater than 5", "smaller than 5"))

    output$result <- renderText(result())
    output$checked <- renderText(input$chk)

  }

shinyApp(ui, server)

Answer 1

經過幾個小時的搜索，結果證明是非常直截了當的。

condition = "input.chk ==1"

並解決了我的問題。