R/water_intake.R

In MarijnJABoer/befitteR: A bundle of health, fitness, food and body related equations, formula's and more, so you can become fit

#' @title Calculate water intake
#'
#' @details
#' \lifecycle{experimental}
#'
#' Remember that you may need to drink more water if you’re physically
#' active (that is why TDEE is used). Living in a hot climate will also affect
#' your water intake. Keep in mind that this is an estimate.
#'
#' @param tdee Total daily energy expenditure
#'
#' @return Water intake (mL)
#'
#' @details 20% of you total daily water intake enters the body through food.
#' We assume that 1 kcal equals1 mL here.
#'
#' For more information go to:
#' https://www.gigacalculator.com/calculators/water-intake-calculator.php
#'
#' Water intake is calculated as follows:
#' \deqn{intake = tdee \times 0.8}
#'
#' @examples
#' calculate_water_intake(2700)
#' @rdname calculate_water_intake
#' @export
calculate_water_intake <- function(tdee) {
  checkmate::assert_number(tdee, lower = 0)
  intake <- tdee * 0.8
  return(intake)
}