R/normalise_excess.R

Defines functions normalise_excess

#' @export
normalise_excess <- function(df, check){
  if(check){
    df <- df %>% 
      mutate(Excess = round(Excess / Scheduled, 2)) %>%
      data.table()
  }
  return(df)
}
aljrico/tubeshiny documentation built on Nov. 2, 2019, 1:41 p.m.