Nothing
setMethodS3("fullname", "default", function(name, tags=NULL, ..., collapse=TRUE) {
# Create a clean vector of parts
args <- list(name, tags, ...)
parts <- unlist(args, use.names=FALSE)
parts <- paste(parts, collapse=",")
parts <- strsplit(parts, split=",", fixed=TRUE)
parts <- unlist(parts, use.names=FALSE)
parts <- parts[nchar(parts, type="chars") > 0L]
if (collapse) {
parts <- paste(parts, collapse=",")
}
parts
})
setMethodS3("name", "default", function(...) {
# Create a clean vector of parts
parts <- fullname(..., collapse=FALSE)
# Extract the name
name <- parts[1]
name
})
setMethodS3("tags", "default", function(..., collapse=FALSE) {
# Create a clean vector of parts
parts <- fullname(..., collapse=FALSE)
# Extract the tags
tags <- parts[-1]
if (collapse) {
tags <- paste(tags, collapse=",")
}
tags
})
setMethodS3("dropTags", "default", function(..., drop=NULL, collapse=FALSE) {
parts <- fullname(..., collapse=FALSE)
# Argument 'drop':
drop <- fullname(drop, collapse=FALSE)
parts <- c(parts[1], setdiff(parts[-1], drop))
fullname(parts, collapse=collapse)
})
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.