R/show_less_labels_dates.R

In SebaStad/ggIBPplot: Provides gg_themes and scales for Fraunhofer IBP CI

#' Title
#'
#' @param every_n
#' @param formatation
#'
#' @return
#' @export
#'
#' @examples
show_less_labels_dates <- function(every_n = 2,  formatation = ""){
  function(x){
    x <- format(x, formatation)
    x[!((seq_along(x)+(every_n-1))%%every_n==0)] <- ""
    x
  }
}