title: Positioning the R shiny selectInput widgets
body: <p>Please run the R shiny script below, I require help regarding shifting the two selectInputs a little above their current position. Currently the selectInput dropdown is not appearing clear. I tried using padding but no use. Attaching the snapshot for reference. Kindly help.</p>
  
  <pre><code>## app.R ##
  library(shiny)
  library(shinydashboard)
  library(plotly)
  ui &lt;- dashboardPage(
  dashboardHeader(title = "first Chart"),
  dashboardSidebar(
  width = 0),
  dashboardBody(
  box(
    splitLayout(
  
      cellArgs = list(style = "padding: 2px;padding-top:0px;"),
  
    selectInput("stats1", "", c("Time","Cases"),selected = "Time", width = 
    "400"),
    selectInput("stats2", "", c("Time","Cases"),selected = "Time", width = 
    "400")),
    title = "Sankey Chart", status = "primary",height = "535" ,solidHeader = 
    T,
      plotlyOutput("first_plot"))))
      server &lt;- function(input, output) 
      { 
      output$first_plot &lt;- renderPlotly({
      p &lt;- plot_ly(
      x = c("giraffes", "orangutans", "monkeys"),
      y = c(20, 14, 23),
      name = "SF Zoo",
      type = "bar"
      )
      })
      }
      shinyApp(ui, server)
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/SebaE.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/SebaE.png" alt="SelectInput bar capture"></a></p>