function(input, output) {
output$iris_plot = renderPlot({
data = filter(iris, Species == input$flower_choice)
ggplot(data, aes(x = Petal.Width,
y = Petal.Length)) +
geom_point()
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.