library(shiny)
library(${package})

ui <- fluidPage(
  titlePanel("reactR Input Example"),
  ${name}Input("textInput"),
  textOutput("textOutput")
)

server <- function(input, output, session) {
  output$textOutput <- renderText({
    sprintf("You entered: %s", input$textInput)
  })
}

shinyApp(ui, server)
