shinyUI(fluidPage(

  # Copy the line below to make a text input box
  textInput("text", label = h3("Text input"), value = "Enter text..."),

  hr(),
  fluidRow(column(3, verbatimTextOutput("value")))

))




shinyServer(function(input, output) {

  # You can access the value of the widget with input$text, e.g.
  output$value <- renderPrint({ input$text })

})