how to customize SelectInput in Shiny (box height and width)

shiny
2

Hi,

This is what I came up with:

library(shiny)

shinyApp(
  ui = fluidPage(
    
    tags$head(
      tags$style(HTML("

      .selectize-input {
        height: 50px;
        width: 600px;
        font-size: 24pt;
        padding-top: 5px;
      }

    "))
    ),
    
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA"))
    ),
    
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
  }
)

An interesting related post is this one:

Good luck!
PJ

1 Like