Nothing
#' Return a logical vector that indicates if each member of a list
#' satisfies a given condition
#'
#' @param .data \code{list}
#' @param cond A logical lambda expression
#' @param use.names \code{logical} Should the names of \code{.data} be kept?
#' @export
#' @examples
#' x <- list(p1 = list(type='A',score=list(c1=10,c2=8)),
#' p2 = list(type='B',score=list(c1=9,c2=9)),
#' p3 = list(type='B',score=list(c1=9,c2=7)))
#' list.is(x,type=='B')
#' list.is(x,min(score$c1,score$c2) >= 8)
list.is <- function(.data, cond, use.names = TRUE) {
items <- list.is.internal(.data, substitute(cond), parent.frame())
if (use.names)
setnames(items, names(.data)) else items
}
#' @export
#' @rdname list.is
list.if <- list.is
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.