nonull <- function(x,...) UseMethod("nonull")
##' @export
nonull.default <- function(x,...) x[!is.null(x)]
##' @export
nonull.list <- function(x,...) x[!sapply(x,is.null)]
s_pick <- function(x,name) {
stopifnot(is.list(x))
nonull(unlist(sapply(x,"[[",name)))
}
ll_pick <- function(x,name) {
stopifnot(is.list(x))
lapply(x,"[[",name)
}
l_pick <- function(x,name) {
stopifnot(is.list(x))
lapply(x,"[",name)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.