R/checkChangedColAndErrorLst.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' checkChangedColAndErrorLst examines errorLst for errors and
#' errorLst$changeCols non-empty fields
## Copyright(c) 2017-2020 R. Mark Sharp
## This file is part of nprcgenekeepr
#'
#' @return Returns \code{NULL} is all fields are empty
#' else the entire list is returned.
#'
#' @param errorLst list with fields for each type of changed column and
#' error detectable by \code{qcStudbook}.
checkChangedColAndErrorLst <- function(errorLst) {
  if (checkErrorLst(errorLst) |
      checkChangedColsLst(errorLst$changedCols))
    return(errorLst)
  else
    return(NULL)
}