Skip to contents

This function uses outlook calendar settings for start and end time of work day to identify work shifts. The relevant variables are WorkingStartTimeSetInOutlook and WorkingEndTimeSetInOutlook.

Usage

identify_shifts(data, return = "plot")

Arguments

data

A data frame containing data from the Hourly Collaboration query.

return

String specifying what to return. This must be one of the following strings:

  • "plot"

  • "table"

  • "data"

See Value for more information.

Value

A different output is returned depending on the value passed to the return argument:

  • "plot": ggplot object. A bar plot for the weekly count of shifts.

  • "table": data frame. A summary table for the count of shifts.

  • "data: data frame. Input data appended with the Shifts columns.

Examples

# Demo with `pq_data` example where Outlook Start and End times are imputed
spq_df <- pq_data

spq_df$WorkingStartTimeSetInOutlook <- "6:30"

spq_df$WorkingEndTimeSetInOutlook <- "23:30"

# Return plot
spq_df %>% identify_shifts()


# Return summary table
spq_df %>% identify_shifts(return = "table")
#> # A tibble: 1 × 3
#>   Shifts     WeekCount PersonCount
#>   <chr>          <int>       <int>
#> 1 6:30-23:30      1000         100