R/fct_weight_diff.R

In Moohan/waste_challenge: Waste Challenge February 2022

#' weight_diff
#'
#' @description A fct function
#'
#' @return The return value, if any, from executing the function.
#'
#' @noRd
weight_diff <- function(weight, bin) {
  dplyr::if_else(bin  == "Yes",
    weight ,
    pmax(0,
       weight - lag( weight ),
      na.rm = TRUE
    )
  )
}