# makeFatalErrorTab <- function(fatalErrorText) {
# errorLst <- getEmptyErrorLst()
# errorLst$fatalError <- paste0(fatalErrorText, "\n")
# insertTab(inputId = "tab_pages",
# getErrorTab(errorLst, "no_file_name"), target = "Input",
# position = "before", select = TRUE)
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.