R/except.R

In charcuterie: Handle Strings as Vectors of Characters

#' Elements of x Except Those in y
#'
#' Does not treat the operation as a set.
#'
#' @param x larger vector.
#' @param y smaller vector.
#'
#' @return elements of `x` not appearing in `y`.
#'
#' @export
#' @examples
#' except(c(1:5), 3)
#' except(chars("abcde"), "c")
#' except(chars("abracadabra"), "b")
except <- function(x, y) {
  x[! x %in% y]
}