Nothing
"listString" <-
function(x, period = FALSE, verbose = FALSE)
{
if(verbose) cat("\n entering listString\n")
flush.console()
if(!is.character(x)) x <- as.character(x)
numElements <- length(x)
out <- if(length(x) > 0)
{
switch(
min(numElements, 3),
x,
paste(x, collapse = " and "),
{
x <- paste(
x,
c(
rep(",", numElements - 2),
" and",
""),
sep = "")
paste(x, collapse = " ")
})
} else ""
if(period) out <- paste(out, ".", sep = "")
if(verbose) cat(" leaving listString\n\n")
flush.console()
out
}
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.