R/remove_disagreements.R

In Sammibulin/NaturalR: NaturalR: Downloading and filetering out iNaturalist queries

#' Removes any inputs that have identification disagreements
#' @name remove_disagreements
#' @description filters out any rows that have identification disagreements
#' @param x the input data frame from iNaturalist
#' @return disagreements_removed returns the original data frame with any identification disagreements removed
#' @export
#' @import dplyr


remove_disagreements <- function(x){
  loadNamespace("dplyr")
  disagreements_removed = dplyr::filter(x, num_identification_disagreements == 0)
  disagreements_removed <<- disagreements_removed
}