Untitled

# Carga el paquete shiny
library(shiny)

# Define la interfaz de usuario (UI)
ui <- fluidPage(
  
  # Título de la aplicación
  titlePanel("Aplicación Shiny: Campo de Texto, Botón y Resultado en Múltiples Renglones"),
  
  # Disposición vertical con un campo de texto, botón y resultado
  verticalLayout(
    textInput("text_input", "Introduce tu texto aquí:", value = ""),
    actionButton("action_button", "Ejecutar"),
    textAreaInput("text_output", "Resultado:", value = "", rows = 5)  # Cuadro de texto para el resultado con varias líneas
  )
)

# Define la lógica del servidor
server <- function(input, output, session) {
  
  # Observa cuando se presiona el botón y actualiza el campo de texto de salida
  observeEvent(input$action_button, {
    updateTextInput(session, "text_output", value = paste("Has introducido el texto:", input$text_input))
  })
}

# Ejecuta la aplicación Shiny
shinyApp(ui = ui, server = server)