R/wk_view_place_holder.R

In pkopps/biview: Functions to Achieve Classic GBI Report Format (Four Weeks, All Months, Run Rate, YTD, Previous Year Variance, etc.)

# place holder wk_view

wk_view_place_hold <- function(df, metric_name, num_wks_to_show = 4){

  wk_array <- df %>% filter(wk_end_date >= floor_date((Sys.Date() - (7 * num_wks_to_show)), 'week')) %>%
    arrange(wk_end_date) %>%
    mutate(wk_num_in_yr = wk_num_in_yr %>% as.character() %>% as_factor()) %>%
    select(wk_num_in_yr)

  wk_num_in_yr <- wk_array$wk_num_in_yr

  tibble(
    'metric' = c(metric_name, "Prior Year", "Variance vs. Prior Year", "OP2 Plan", "Variance vs. Plan")
  ) -> l

  t <- tibble(
    "wk_num_in_yr" = wk_num_in_yr,
    value = NA
  ) %>% spread(wk_num_in_yr, value)

  names(t)[1:ncol(t)] <- paste0("w", names(t)[1:ncol(t)])

  bind_rows(t,t,t,t,t) -> r

  bind_cols(l, r)

}