Nothing
###-----------------------------------------------------------------------------
###
### getbynames - get list elements by name and if no such element exists, NA
###
###
getbynames <- function (x, e) {
x <- x [e]
if (length (x) > 0) {
if (is.character (e))
names (x) <- e
x [sapply (x, is.null)] <- NA
x
} else {
list ()
}
}
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.