inst/shinyapp/server.R

function(input, output) {
  output$plot <- shiny::renderPlot({
    cat("date", input$date, "\n")
    pp <- do_plot(input$date)
    print(plot)
  })
}
BigelowLab/MeCDC documentation built on April 22, 2020, 2:29 p.m.