Nothing
context('message')
# Test the message convenience function
block <- so_SOBlock$new()
msg_content <- "What has happened?"
severity <- 5L
tool_name <- "myTool"
error_name <- "TheError"
block$add_message("ERROR", tool_name, error_name, msg_content, severity)
msg <- block$TaskInformation$Message[[1]]
expect_identical(msg$type, "ERROR")
expect_identical(msg$Content, msg_content)
expect_identical(msg$Name, error_name)
expect_identical(msg$Severity, severity)
expect_identical(msg$Toolname, tool_name)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.