# clean_stop -------------------------------------------------------------------
clean_stop <- function(...)
{
stop(call. = FALSE, ...)
}
# .message_availableTables -----------------------------------------------------
.message_availableTables <- function(tableNames)
{
paste("Available tables:\n ", paste(tableNames, collapse = "\n "))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.