R/permitted_individuals.R

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

#' Permitted individuals check
#'
#' Checks if logged individuals are one or all of the following: man, woman, boy or girl.
#' @param df Variable.
#' @return No R object return, performs only a check.
#' @export
permitted_individuals <- function(df){
  possible_individuals <- c('man', 'woman', 'boy','girl')
  check <- df %>% filter(!(.data$individual %in% possible_individuals)) %>% pull(.data$individual)
  if(length(check)>0){
    for(i in 1:length(check)){
      message(paste("Individual",check[i],"isn't allowed."))
    }
    stop("Check your data! The only possible individuals in standard table mode are 'man', 'woman', 'boy' and 'girl'.")
  }
}