Skip to content

Instantly share code, notes, and snippets.

@aagarw30
Created February 12, 2018 06:13
Show Gist options
  • Star 3 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save aagarw30/bb5ce42ebc7a60302a50bb7ddcf113af to your computer and use it in GitHub Desktop.
Save aagarw30/bb5ce42ebc7a60302a50bb7ddcf113af to your computer and use it in GitHub Desktop.
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