In jr-packages/jrShiny: R Shiny Exercises

data(iris)
selectInput("flower_choice", "Choose your flower", 
            choices = unique(iris$Species))

renderText({
  selected = iris[iris$Species == input$flower_choice,]
  mean(selected$Petal.Width)
})

renderPlot({
  selected = iris[iris$Species == input$flower_choice,]
  plot(selected$Petal.Width, selected$Petal.Length)
})

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