inst/apps/cumhaz_demo/server.R

In Auburngrads/teachingApps: Apps for Teaching Statistics, R Programming, and Shiny App Development

server = function(input, output, session) {

output$HAZdemo <- renderUI({ add_rmd('backgroundchaz.Rmd') })

output$HAZr <- renderUI({ add_rmd('rfuncschaz.Rmd') })

output$plotHAZ <- renderPlot({
  input$evalHAZ
  return(isolate(eval(parse(text=input$HAZplot))))

})
}