shiny_examples/mtcars/server.R

In mcglinnlab/soar: aggregate species occupany data

# load libraries, scripts, data
shinyServer(function(input, output) {
# make user specific variables

  output$text <- renderText({
    input$title
  })
 
  output$plot <- renderPlot({
    x <- mtcars[ , input$x]
    y <- mtcars[ , input$y]
    plot(x, y, pch = 16)
  })

})