server.R

library(shiny)

# Define server logic for random distribution application
shinyServer(function(input, output,session) {
  data <- reactive({
    dist <- switch(input$dist,
                   norm = rnorm,
                   unif = runif,
                   lnorm = rlnorm,
                   exp = rexp,
                   rnorm)
    
    dist(input$n)
    
  })
  
  
  # Generate a summary of the data
  output$summary <- renderPrint({
    summary(data())
  })
  
  # Generate an HTML table view of the data
  output$idmytable <- renderTable({
    data.frame(x=data())
   
    })
 
  
})