R/removeSelectedAnimalFromAvailableAnimals.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Updates list of available animals by removing the selected animal
#'
## Copyright(c) 2017-2020 R. Mark Sharp
## This file is part of nprcgenekeepr
#'
#' @return list of available animals
#'
#' @param available list of available animals for each group
#' @param ids character vector having the selected animal Ids
#' @param numGp integer indicating the number of groups being formed.
removeSelectedAnimalFromAvailableAnimals <- function(available, ids, numGp) {
  # Remove the selected animal from consideration
  for (j in 1:numGp) {
    available[[j]] <- setdiff(available[[j]], ids)
  }
  available
}