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

library(reportsWS)

textInput(inputId = "name", 
  label = "Type a name", value = "Garrett")

bnames <- reactive({
  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.