Untitled

library(shiny)

# Define la interfaz de usuario
ui <- fluidPage(
  titlePanel("Aplicación Shiny - Procesador de Prompt"),
  
  # Usa un diseño de ubicación simple de elementos
  fluidRow(
    column(width = 12,
           # Area de texto para ingresar el prompt
           textAreaInput("prompt", "Escribe tu prompt:", value = "", rows = 3, placeholder = "Escribe aquí..."),
           # Botón para procesar el prompt
           actionButton("process", "Procesar prompt"),
           # Área de texto para mostrar la respuesta, ubicada debajo
           textAreaInput("response", "Respuesta:", value = "", rows = 10, placeholder = "Aquí se mostrará la respuesta...")
    )
  )
)

# Define el comportamiento del servidor
server <- function(input, output, session) {
  # Observar el clic en el botón y actualizar la respuesta
  observeEvent(input$process, {
    # Actualiza el área de texto
    updateTextAreaInput(session, "response", value = "Diste clic.")
  })
}

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