R/check_min_exists.R

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

#' Minimum intake food groups check
#'
#' Looks for a minimum value and sets zero if missing,
#' @param df Dataframe.
#' @param check Boolean variable to permit optional food group.
#' @param col Minimum percentage intake column name.
#' @return Dataframe.
#' @export
check_min_exists <- function(df, check, col){
  if(isTRUE(check) && !(col %in% colnames(df))){
    df[col] <- 0
  }
  return(df)
}