我在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
进入输出文本框