# Simple time window
validate_time_window(c(-1, 2))
# Multiple windows
validate_time_window(c(-1, 2, 3, 5))
# alternatively
validate_time_window(list(c(-1, 2), c(3, 5)))
validate_time_window(list(list(-1, 2), list(3, 5)))
if (FALSE) {
# Incorrect usage (will raise errors)
# Invalid interval (length must be two for each intervals)
validate_time_window(list(c(-1, 2, 3, 5)))
# Time intervals must be in ascending order
validate_time_window(c(2, 1))
}
Run the code above in your browser using DataLab