# Demo with `pq_data` example where Outlook Start and End times are imputed
# Use a small sample for faster runtime
pq_data_small <- dplyr::slice_sample(pq_data, prop = 0.1)
pq_data_small$WorkingStartTimeSetInOutlook <- "6:30"
pq_data_small$WorkingEndTimeSetInOutlook <- "23:30"
# Return plot
pq_data_small %>% identify_shifts()
# Return summary table
pq_data_small %>% identify_shifts(return = "table")
Run the code above in your browser using DataLab