inst/shiny-examples/LagSelectionBias/server.R

In schifferl/LagSelectionBias:

#
# This is the server logic of a Shiny web application. You can run the
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
library(dplyr)
library(ggplot2)
library(plotly)
source("plotEducation.R")
source("plotMortality.R")

# Define server logic required to draw a histogram
shinyServer(function(input, output) {

    output$educationPlot <- renderPlotly({
        plotEducation(input$education_age, input$education_race, input$education_sex)
    })

    output$mortalityPlot <- renderPlotly({
        plotMortality(input$mortality_age, input$mortality_race, input$mortality_sex)
    })

})