#' @export
take <- function(x, ...) {
UseMethod('take', x)
}
#' @export
take.list <- function(x, k, ...) {
sapply(x, function(x) {
v <- x[[k]]
if (is.null(v))
NA
else
v
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.