R/check_targets.R

In fishsciences/elaphos: Data Package For CFS E-DNA Experiments

#' check_targets
#'@title Check target columns for agreement

#'Wrapper function for `check_row`, which checks three elements of a named vector against each other and returns TRUE (if they match) or FALSE (if they don't) while ignoring NAs.
#' 
#' @param dataframe data frame object to check
#' @param cols specific columns in the \code{dataframe} to check
#' @return a logical vector
#' @author Matt Espe, Myfanwy Johnston
#' @export

check_targets = function(dataframe, cols = c("lut_Species_MitoFish", 
                                                    "BLAST_scientific_name", 
                                                    "Species")) {
  d = dataframe[, cols]
  apply(d, 1, check_row)
  
}

# this is the function that check_targets wraps around

check_row = function(row, new_row = na.omit(unlist(row))) {
  length(unique(new_row)) == 1 
}