R/utils.R

In tjmahr/adventofcode18: What the Package Does (One Line, Title Case)

#' @importFrom stats aggregate
#' @importFrom utils head read.csv tail
NULL

#' @useDynLib adventofcode18, .registration = TRUE
#' @importFrom Rcpp sourceCpp
NULL

#' @export
read_text_lines <- function(x) {
  x %>%
    strsplit("\\n") %>%
    unlist() %>%
    stringr::str_trim() %>%
    keep_if(function(x) x != "")
}

keep_if <- function(data, predicate) {
  Filter(predicate, data)
}