Positioning Shiny widgets beside their headers

r, shiny

Solution

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

Problem

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

Original source