การเพิ่ม input

library(shiny)

# Define UI for the application
ui <- ___(
  # Create a numeric input with ID "age" and label of
  # "How old are you?"
  numericInput(___, ___, value = 20),
  
  # Create a text input with ID "name" and label of 
  # "What is your name?"
  ___(___, ___)
)

# Define the server logic
server <- function(input, output) {}

# Run the application
shinyApp(ui = ui, server = server)