pickerInput inside dropdownButton about shinywidgets HOT 3 CLOSED

library("shiny")
library("shinyWidgets")

ui <- fluidPage(
  tags$h2("pickerInput in dropdown"),
  br(),
  dropdown(
    
    tags$h3("List of Input"),
    
    pickerInput(inputId = 'xcol2',
                label = 'X Variable',
                choices = names(iris),
                options = list(`style` = "btn-info")),
    
    pickerInput(inputId = 'ycol2', 
                label = 'Y Variable',
                choices = names(iris),
                selected = names(iris)[[2]], 
                options = list(`style` = "btn-warning")),
    
    sliderInput(inputId = 'clusters2', 
                label = 'Cluster count', 
                value = 3,
                min = 1, max = 9),
    
    style = "unite", icon = icon("gear"), status = "danger", width = "300px",
    animate = animateOptions(enter = animations$fading_entrances$fadeInLeftBig,
                             exit = animations$fading_exits$fadeOutRightBig)
  ),
  
  plotOutput(outputId = 'plot2')
)

server <- function(input, output, session) {
  
  selectedData2 <- reactive({
    iris[, c(input$xcol2, input$ycol2)]
  })
  
  clusters2 <- reactive({
    kmeans(selectedData2(), input$clusters2)
  })
  
  output$plot2 <- renderPlot({
    palette(c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3",
              "#FF7F00", "#FFFF33", "#A65628", "#F781BF", "#999999"))
    
    par(mar = c(5.1, 4.1, 0, 1))
    plot(selectedData2(),
         col = clusters2()$cluster,
         pch = 20, cex = 3)
    points(clusters2()$centers, pch = 4, cex = 4, lwd = 4)
  })
  
}

shinyApp(ui = ui, server = server)