In rstudio/reportsWS: Interactive Reports with R Markdown and Shiny Workshop

library(reportsWS)
textInput(inputId = "name", 
  label = "Type a name", value = "Garrett")
actionButton("go", "Go")

bnames <- eventReactive(input$go, {
  get_babyname(input$name, "M")
})

renderPlot({
  plot(bnames()$year, bnames()$n, type = "l")
})

rstudio/reportsWS documentation built on May 28, 2019, 5:42 a.m.