R/minus_names.r

"%-%" <- function(x, y) {
 if (is.null(names(x))) names(x) <- x
 names(x)[!names(x) %in% y]
}

Try the shipunov package in your browser

Any scripts or data that you put into this service are public.

shipunov documentation built on Feb. 16, 2023, 9:05 p.m.