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脚本。我的问题是如何从writemessage调用process.r。现在写，我得到writemessage函数未找到错误。

应将writemessage写入何处，以便可以从submit以及process.r进入输出文本框