Sending R console messages to Shiny output

I have an R program with a function "1" that calls another function "2" as Program.R
In Shiny Server.R I have source("Program.R") and then I am calling function "1" with arguments from Server.R.
In function"2", I have multiple progress messages that I send to R console as code executes. "Starting ..." , " Ending ...".
All is working and getting messages in console fine.
What I need is some help on how to send these messages to Shiny output knowing how I am calling these functions from server .

Resolved. Moved functions to Server.R and used Shiny Progress object