library(shiny)

# Define server logic
shinyServer(function(input, output) {
  
  output$normalPlot <- renderPlot({
    plot(c(1,2,3), c(1,2,3), main=paste('Sigma', input$sig))
  })
})