R/utils.R

In danielmarcelino/CamaraBR: Download, Unpack and Tidy Legislative Data from the Brazilian Chamber of Deputies

if (getRversion() >= "2.15.1")  utils::globalVariables(".")

"%||%" <- function(a, b) {
  if (!is.null(a)) a else b
}


# Emulate '+' python function for piping string joins
`%p%` <- function(e1, e2) return(paste0(e1, e2))

'%ni%' <- Negate('%in%')

# discard NA in vector
discard_na <- function(x){
  x <- as.character(x) %>% purrr::discard(is.na)
  if(purrr::is_empty(x)){
    x <- NA
  }
  return(x)
}