# Load example data
data("occ_flagged", package = "RuHere")
# Remove all flagged records
occ_valid <- remove_flagged(occ = occ_flagged)
# Remove flagged records and force removal of some unflagged records
to_remove <- c("gbif_5987", "specieslink_2301", "gbif_18761")
occ_valid2 <- remove_flagged(occ = occ_flagged,
force_remove = to_remove)
# Remove flagged records but keep some flagged ones
to_keep <- c("gbif_14501", "gbif_12002", "gbif_5168")
occ_valid3 <- remove_flagged(occ = occ_flagged,
force_keep = to_keep)
Run the code above in your browser using DataLab