library(shiny)
fluidPage(
titlePanel("Distribution of home rentals"),
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of rentals:",
min = 1,
max = 300,
value = 150)
),
mainPanel(
plotOutput("distPlot")
)
)
)