Nothing
createTimedAlert <- function (session, anchorId, alertId = NULL, title = NULL, content = NULL,
timeout = 2000, style = NULL, dismiss = FALSE, append = FALSE)
{
data <- shiny:::dropNulls(list(id = anchorId, alertId = alertId,
title = title, content = content, timeout=timeout, style = style, dismiss = dismiss,
append = append))
session$sendCustomMessage(type = "timedAlertCreate", message = data)
}
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.