R Shiny dynamic multiple selection grid

Question

I have a simple Shiny App that uses selectInput:

Code:

library(shiny)
ui <- fluidPage(
    selectInput("select", label = h3("Select box&q