multiInput(): set one column below the other about shinywidgets HOT 1 CLOSED

library("shiny")
library("shinyWidgets")
ui <- fluidPage(
  multiInput(
    inputId = "id", label = "Fruits :",
    choices = c("Banana", "Blueberry", "Cherry", "Coconut", "Grapefruit",
                "Kiwi", "Lemon", "Lime", "Mango", "Orange", "Papaya"),
    selected = "Banana", width = "200px",
    options = list(
      enable_search = TRUE,
      non_selected_header = "Choose between:",
      selected_header = "You have selected:"
    )
  ),
  # -------------- ADD THESE LINES TO CHANGE CSS --------------
  tags$style(".non-selected-wrapper{width: 100% !important;}"),
  tags$style(".selected-wrapper{width: 100% !important;}"),
  # -----------------------------------------------------------
  verbatimTextOutput(outputId = "res")
)

server <- function(input, output, session) {
  output$res <- renderPrint({
    input$id
  })
}

shinyApp(ui = ui, server = server)