Positioning Shiny widgets next to headings

Question

How can I place Shiny widgets (e.g. selectInput() ) besides my headers? I played with various recipes tags 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 }) )