library(timeplyr)
library(fastplyr)
library(lubridate)
library(nycflights13)
missing_dates(flights$time_hour)
time_has_gaps(flights$time_hour)
time_num_gaps(flights$time_hour)
length(time_gaps(flights$time_hour))
time_num_gaps(flights$time_hour, g = flights$origin)
# Number of missing hours by origin and dest
flights %>%
f_group_by(origin, dest) %>%
f_summarise(n_missing = time_num_gaps(time_hour, "hours"))
Run the code above in your browser using DataLab