library("ggplot2") library("dplyr") data(iris) selectInput("flower_choice", "Choose your flower", choices = unique(iris$Species))
actionButton(inputId = "go", label = "Go!") selected = eventReactive(input$go, { filter(iris, Species == input$flower_choice) })
renderText({ mean(selected()$Petal.Width) })
renderPlot({ ggplot(selected(), aes(x = Petal.Width, y = Petal.Length)) + geom_point() # or # plot(selected$Petal.Width, selected$Petal.Length) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.