12.1 A simple example

• See the example here

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)