Настройте conditionalPanel для отображения sliderInput

Друзья могут помочь мне сделать мою условную панель функциональной. Я создал условную панель, но не знаю, как ее настроить на сервере. Когда я нажимаю опцию «Нет», я хочу, чтобы отображался 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)