A simple example
ui <- fluidPage(
titlePanel("My first shiny app :-)"),
sidebarLayout(
sidebarPanel(
selectInput("selection", label = h3("Select box"),
choices = list("Fertility" = "Fertility",
"Agriculture" = "Agriculture",
"Examination" = "Examination",
"Education" = "Education",
"Catholic" = "Catholic",
"Infant.Mortality" = "Infant.Mortality"),
selected = 1)
),
mainPanel(plotlyOutput("distPlot"))
))
server <- function(input, output) {
output$distPlot <- renderPlotly({
x <- swiss[, input$selection]
plot_ly(x = x, type = "histogram") %>% layout(xaxis = list(title=input$selection), title="Swiss French Provinces Fertility and Socioeconomic Indicators (1888) Data")
})}
shinyApp(ui = ui, server = server)