inst/apps/cdf_demo/server.R

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

server = function(input, output, session) {
  
output$cdfdemo <- renderUI({ add_rmd('backgroundcdf.Rmd') })

output$cdfr <- renderUI({ add_rmd('rfuncscdf.Rmd') })  

output$plotcdf <- renderPlot({
      input$evalcdf
      return(isolate(eval(parse(text=input$cdfplot))))
})
}