actionButton

fluidPage(
    
  # Copy the line below to make an action button
  actionButton("action", label = "Action"),
  
  hr(),
  fluidRow(column(2, verbatimTextOutput("value")))
  
)

function(input, output) {

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

}

textInput

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")))
      
)

function(input, output) {

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

}