Limit number selected items in multiInput() from shinyWidgets package

Question

Let say I have below Shiny app -

library(shinyWidgets); library("shiny")
ui <- fluidPage(
  multiInput(
    inputId = "id", label = "Fruits :",
     choices = c("Banana", "Blueberry", "Cherry",
                "Coconut", "Grapefruit", "Kiwi",
                "Lemon", "Lime", "Mango", "Orange",
                "Papaya"),
    selected = "Banana", width = "400px",
     options = list(
       enable_search = FALSE,
       non_selected_header = "Choose between:",
      selected_header = "You have selected:"
    )
   ),
   verbatimTextOutput(outputId = "res")
 )

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

shinyApp(ui = ui, server = server)

Now I want to put an upper limit on the number of items user can chose of 3. Is there any way to achieve this with multiInput() ?

Answer 1

Yes, you can provide a limit by specifying it in the options list:

ui <- fluidPage(
  multiInput(
    inputId = "id", label = "Fruits :",
     choices = c("Banana", "Blueberry", "Cherry",
                "Coconut", "Grapefruit", "Kiwi",
                "Lemon", "Lime", "Mango", "Orange",
                "Papaya"),
    selected = "Banana", width = "400px",
     options = list(
       limit = 3,
       enable_search = FALSE,
       non_selected_header = "Choose between:",
      selected_header = "You have selected:"
    )
   ),
   verbatimTextOutput(outputId = "res")
 )

Answer 2

In the same situation, is there a way to allow selected apps in a shiny app to switch to the other side in the selected order? For example, "Banana", "Cherry", "Kiwi", "Grapefruit", "Orange", "Mango", "Papaya", "Lime" are the list of selected ones.