Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Demo - side by side input widgets in R Shiny
library(shiny)
ui <- fluidPage(
tags$div(sliderInput("slide1", "Slider1", min = 0, max=10, value=4), style="display:inline-block"),
tags$div(sliderInput("slide1=2", "Slider2", min = 0, max=10, value=4), style="display:inline-block"),
tags$div(sliderInput("slide3", "Slider3", min = 0, max=10, value=4), style="display:inline-block")
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment