#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.