SelectInput with options and actions

DESCRIPTION

Title: Demo for multiple options and actions using selectinput
Description: Powered by R, Shiny and Rstudio.
License: GPL-3
Author: Abhinav Agrawal
DisplayMode: Showcase
Tags: R, R Shiny, shinydashboard
Type: Shiny

server.r

library(shiny)
shinyServer(function(input, output){
  
  output$a <- renderUI({
    
    if(input$Select=="a - slider")
      sliderInput("slider", "slider", min = 1, max = 10, value = 5)
    else
      return()}
    
    )
  
  output$b <- renderPlot({
    if(input$Select=="b - histogram")
      hist(mtcars$mpg)
    else
      return()
  })
  
  output$c <- renderText({
    if(input$Select=="c - mean")
      paste("mean mpg=", mean(mtcars$mpg))
    else
      return()
  })
  
})

ui.r

library(shiny)


shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(selectInput("Select", "Select", choices = c("a - slider", "b - histogram", "c - mean"), selected = "a")), 
    mainPanel(
      uiOutput("a"),
      plotOutput("b"),
      textOutput("c")
    )
  ))
  
)