In jr-packages/jrShiny: R Shiny Exercises

library("dplyr")
library("plotly")
library("DT")
data(iris)
actionButton("setosa","Setosa!")
actionButton("versicolor", "Versicolor!")

rvs = reactiveValues(data = iris)

observeEvent(input$setosa, {
  rvs$data = filter(iris, Species == "setosa")
})
observeEvent(input$versicolor, {
  rvs$data = filter(iris, Species == "versicolor")
})

renderPlot({
  plot(rvs$data$Petal.Width, rvs$data$Petal.Length)
})

jr-packages/jrShiny documentation built on Feb. 16, 2020, 9:13 p.m.