#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.