Nothing
FirstTwo <- function(name) {
if(is.null(name))
name <- NA
if(!is.na(name)) {
#trim2 <- function (x) gsub("^\\s+|\\s+$", "", x)
name <- gsub("^\\s+|\\s+$", "", name)
if(length(strsplit(name, " ")[[1]]) > 2)
name <- paste(strsplit(name," ")[[1]][1:2],sep=" ",collapse=" ")
}
return(name)
}
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.