R/getMinParentAge.R

In nprcgenekeepr: Genetic Tools for Colony Management

#' Get minimum parent age.
#'
## Copyright(c) 2017-2024 R. Mark Sharp
## This file is part of nprcgenekeepr
#' This can be set to anything greater than or equal to 0.
#'
#' Set to 0 if you do not want to enforce parents being sexually mature
#' by age. Animals that do not have an age are ignored.
#' @return A numeric value indicating the minimum age of a parent.
#' @param input shiny's input
#' @import shiny
#' @noRd
getMinParentAge <- function(input) {
  minParentAge <- as.numeric(renderText({
    input$minParentAge
  }))
  if (minParentAge < 0L) {
    stop("Minimum Parent Age must be >= 0.")
  } else {
    minParentAge
  }
}