Nothing
"odfItemize" <-
function(data, ...)
{
if(!is.vector(data)) stop("data must be a vector")
styles <- getStyles()
has <- function(x) !is.null(x) && x != ""
if(!has(styles$bullet)) stop("no bullet style")
itemStart <- paste(
' <text:p',
tagattr("text:style-name", paste(styles$bullet, "Paragraph", sep="")),
">",
sep = " ")
listStart <- paste(
' <text:list',
tagattr("text:style-name", styles$bullet),
">",
sep = " ")
bulletItems <- paste(' <text:list-item>\n', itemStart, format(data, ...), "</text:p>\n", ' </text:list-item>\n')
out <- paste(
listStart,
"\n",
paste(bulletItems, collapse = " "),
' </text:list>\n',
collapse = "\n")
structure(out, class = "odfItemize")
}
print.odfItemize <- function(x, ...) cat(x)
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.