R/exclude_obs.R

In graggsd/sgcodebook: Recodes Categorical Values in a Dataset Using a Codebook

#'@export
exlude_obs <- function(data, exclusion_cb, id = "id") {
    # TODO add documentation for exclude_obs
    stopifnot(id %in% colnames(data))
    stopifnot(id %in% colnames(exclusion_cb))
    excl_idx <- data[, id] %in% exclusion_cb[, id]
    return(data[!excl_idx, ])
}