R/check_variety.R

In DIETCOST: Calculate the Cost and Environmental Impact of a Ideal Diet

#' Variety check
#'
#' Checks if varieties are into the allowed range (1,2 or 3).
#' @param df Dataframe variety column.
#' @return No return, only performs a check.
#' @export
check_variety <- function(df){
  check_nom_num_df(df)
  if(max(df) > 3){
    stop('Allowed varieties: 1, 2 or 3 ')
  }
}