R/utils.R

In knapply/tweetgraph: Tweet Graph Structures for Network Analysis

.map_chr <- function(.x, .f, ..., .n = 1L) {
  vapply(.x, .f, FUN.VALUE = character(.n), ...)
}


.map_lgl <- function(.x, .f, ..., .n = 1L) {
  vapply(.x, .f, FUN.VALUE = logical(.n), ...)
}


.keep <- function(.x, .f, ...) {
  .x[vapply(.x, .f, FUN.VALUE = logical(1L), ...)]
}


.discard <- function(.x, .f, ...) {
  .x[!vapply(.x, .f, FUN.VALUE = logical(1L), ...)]
}


unlist_na_rm <- function(x) {
  init <- unlist(x, use.names = FALSE)
  init[!is.na(init)]
}


.is_empty <- function(.x) {
  length(.x) == 0L
}