eventReactive()
provides a useful way to delay reactions when combined with an actionButton()
.
selectInput("iriscol", label = "Select a variable", choices = names(iris))
actionButton("go", "Go!")
data <- eventReactive(input$go, { iris[[input$iriscol]] }) renderPlot({ hist(data(), probability = TRUE) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.