function(input, output) {
output$plot <- shiny::renderPlot({
cat("date", input$date, "\n")
pp <- do_plot(input$date)
print(plot)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.