Help me with my shiny app. First, let me show you my code:

EUCTR_shiny.R:
________


EUCTR_function <- function(input_var) {

[TRUNCATED]

# Save the workbook to the file
saveWorkbook(wb, file.path("outputs", paste0("EUCTR_", format(Sys.Date(), "%Y%m%d"), "_", format(Sys.time(), "%H%M"), ".xlsx")))

print(metadata, row.names = FALSE)

}
________________________



server.R:
__________________
library(shiny)

source("EUCTR_shiny.R")

shinyServer(function(input, output) {
  
  # When the Start button is pressed
  observeEvent(input$start, {
    print("Start button pressed")
    # Call the EUCTR_shiny script function and pass the input variable
    output$shiny_output <- renderPrint({
      EUCTR_function(input$input_var)
    })
  })
  
})
__________________________

ui.R:
_______________________
library(shiny)

# User interface definition
shinyUI(fluidPage(
  
  # App title
  titlePanel("EUCTR Automagic Scraper ????"),
  
  # Instruction text
  p("This is a web scraper for the EU Clinical Trials Register."),
  
  # Input box for a one-line variable
  textInput("input_var", "Enter the URL for the search query:"),
  
  # ‘Start’ button
  actionButton("start", "Start"),
  
  # Output console
  verbatimTextOutput("shiny_output")
  
))
________________________________



I want the UI to include a real-time printing of what's printed inside the EUCTR_shiny.R script.


