R/time_shift.R

In pttry/ggptt: Themes and ggplot2 Functions for PTT

#' Shift time 1.5 months
#'
#' Used to shift time a half quarter in quarter charts
#'
#' @param x a Date vector to shift
#'
#'
#' @export
#' @examples
#' halfq_shift(as.Date(c("2018-01-01", "2018-04-01")))
#'
halfq_shift <- function(x){
  x + months(1) + lubridate::days(14)
}