Nothing
#' @importFrom utils capture.output
formatText <- function(text, n = 20L, truncated = "<...>") {
result <- if (nchar(text) < n)
text
else
paste(text, truncated)
encodeString(result)
}
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.