调整conditionalPanel以显示sliderInput

朋友们可以帮助我使我的conditionalPanel功能正常。我做了一个条件面板，但是我不知道如何在服务器上调整它。当我按下“否”选项时，我希望它显示sliderInput（“Slider2”）。可执行代码如下所示。谢谢大家!

library(shiny)

ui <- shiny::navbarPage(
  title = div(tags$img(src="", align="right", height='50px')),
              sidebarLayout(
               sidebarPanel(
                 sliderInput("Slider1",
                             "Number of bins:",
                             min = 1,
                             max = 50,
                             value = 30)
               ),

               sidebarLayout(
                 sidebarPanel(
                   radioButtons("filter1","", choices = list("Yes" = 1,"No " = 2),selected = 1),
                   conditionalPanel(
                      "input.filter1 == 'No'",

                    sliderInput("Slider2",
                               "Number of bins:",
                               min = 1,
                               max = 20,
                               value = 30)),
                 ),
                 mainPanel(
                   plotOutput("distPlot1")
                 ))))


server <- function(input, output) {

  output$distPlot1 <- renderPlot({
    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$Slider1 + 1)


    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
ui您的条件必须是
“input.filter1==2”
而不是
“input.filter1==No”


“No”
是元素的名称，而
2
是值（已计算）

它将与此修改一起工作。
当您这样做时

radioButtons("filter1", "", choices = list("Yes" = 1,"No " = 2)

单选按钮的值是
“1”
和
“2”
，而
“是”
和
“否”
是单选按钮的标签。所以您的条件应该是
“input.filter1=='2'
有人能帮我回答这个问题吗：