Positioning Shiny widgets beside their headers

Question

How can I position Shiny widgets (e.g. the dropdown box of selectInput()) besides their headers? I\'ve been playing around with various tags formu

Answer 1

Is this what you want?

library(shiny)  

runApp(list(ui = pageWithSidebar( 
  headerPanel("side-by-side"), 
  sidebarPanel(
    tags$head(
      tags$style(type="text/css", "label.control-label, .selectize-control.single{ display: inline-block!important; }")
    ),
    selectInput(inputId = "options", label = "dropdown dox:", 
                choices = list(a = 0, b = 1))
  ),
  mainPanel( 
    h3("bla bla")
  )
)
, server = function(input, output) { NULL })
)