R/util.R

Defines functions take.list take

#' @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
	})
}
wilsonfreitas/transmute documentation built on June 23, 2020, 12:03 p.m.