mssg<-reactiveValues(
error="",
capturedOutput=""
)
setErrorMssg<-function(errMssg){ mssg$error<-errMssg }
clearErrorMssg<-function(){ mssg$error<-"" }
hasError<-reactive({ nchar(mssg$error)>0 })
getErrorMssg<-reactive({ mssg$error })
setCapturedMssg<-function(capturedMssg)({
mssg$capturedOutput<-capturedMssg
})
getCapturedMssg<-reactive({
mssg$capturedOutput
})
getAptRunnerMssg<-reactive({
if(identical(appRunner$tabId,input$pages)){
rtv<-appRunner$log
} else {
rtv<-""
}
rtv
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.