R Блестящий вывод текста из внутренних скриптов

Question

У меня есть server.r, UI.r and a process.r в UI.r У меня есть текстовое поле ниже, которое я использую для отображения сообщений о ходе выполнения.

  box(width="10",
    verbatimTextOutput("msg")
    )

В server.r, нижеприведенный код используется для кнопки отправки, чтобы написать сообщенияв текстовое поле при нажатии кнопки отправки.

   shinyServer(function(input,output,session){

    observeEvent(input$submit, {
        tryCatch( { 
             source("process.r")
      }, 
        error = function(e) {
          writemessage(e$message)}
        )
      })

      writemessage <- function(message){
            output$msg <- renderText({ message })
            showNotification(message)
      }

    }

При нажатии на кнопку нажмите на нее * process.r script.Моя проблема в том, как позвонить на writemessage с process.r.Напишите сейчас, я получаю сообщение об ошибке «Функция сообщения не найдена».

Куда следует записать writemessage, чтобы выходное текстовое поле было доступно как submit, так и process.r