r - 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 formulations without any luck. Grateful for any pointers.

ui.R

library(shiny)  
pageWithSidebar( 
  headerPanel("side-by-side"), 
  sidebarPanel(
tags$head(
  tags$style(type="text/css", ".control-label {display: inline-block;}"),
  tags$style(type="text/css", "#options { display: inline-block; }"),
  tags$style(type="text/css", "select { display: inline-block; }")
),
selectInput(inputId = "options", label = "dropdown dox:", 
  choices = list(a = 0, b = 1))
  ),
  mainPanel( 
    h3("bla bla")
  )
)

server.R

shinyServer(function(input, output) { NULL })

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 })
)