R/interval_check.R

In muschellij2/gluc: Analyzes and Organizes Glucose Monitoring Data

#' @title Check the interval timing for glucose monitoring
#' @description Takes in a vector fo times, finds the gaps in the intervals and
#' determines if all gaps are multiples of the smallest gap.
#' @param times A Date vector of day/times for records
#'
#' @return A list of a logical if all differences are multiples of the minimum
#' and the minimum interval time and the interval unit
#' @export
interval_check = function(times) {
  dtimes = diff(times)
  dtimes = dtimes[ !is.na(dtimes) ]
  interval_unit = units(dtimes)
  dtimes = sort(unique(dtimes))
  min_time = min(dtimes)
  if (min_time == 0) {
    warning("Minimum time is zero!")
  }
  mods = dtimes %% min_time
  L = list(
    all_multiples = all(mods == 0),
    interval = min_time,
    interval_unit = interval_unit
  )
  return(L)
}