R Shiny: Side-by-Side UI Inputs in absolutePanel - r

Question

I'm trying to get two selectInputs to appear side by side in an absolute panel in a Shiny App. I tried the solution here, specifically using:
withTags(div(class='row-fluid',
div(class='span3', checkboxInput(inputId =
"simOption", label = "Historical Data",value=TRUE)),
div(class='span5', checkboxInput(inputId =
"simOption2", label = "Historical Data 2",value=TRUE))
))
but that didn't work in my code (the checkboxInputs still appeared vertically).
See the below code for a specific example. Right now, the two selectInputs appear vertically while I'm hoping to get them side-by-side.
library(shiny)
ui <- fluidPage(
navbarPage("Title", id="nav",
tabPanel("Tab",
div(class="outer",
absolutePanel(id = "controls", class = "panel panel-default", fixed = TRUE,
draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto",
width = 300, height = "auto",
selectInput("select_1", "1st Thing",
choices=1:10, selected = 1, multiple = FALSE,
width=90),
selectInput("select_2", "2nd Thing",
choices=1:10, selected = 2, multiple = FALSE,
width=90)
)
)
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)

Answer 1

You could wrap your two input selectors in a div and add some css.
library(shiny)
ui <- fluidPage(
navbarPage("Title", id="nav",
tabPanel("Tab",
div(class="outer",
absolutePanel(id = "controls", class = "panel panel-default", fixed = TRUE,
draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto",
width = 300, height = "auto",
div(style="display:flex",
selectInput("select_1", "1st Thing",
choices=1:10, selected = 1, multiple = FALSE,
width=90),
selectInput("select_2", "2nd Thing",
choices=1:10, selected = 2, multiple = FALSE,
width=90)
)
)
)
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)