R/remove_last_label_dates.R

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

Defines functions remove_last_label_dates

Documented in remove_last_label_dates

#' Title
#'
#' @param formatation
#'
#' @return
#' @export
#'
#' @examples
remove_last_label_dates <- function(formatation = ""){
  function(x){
    x <- format(x, formatation)
    x[length(x)] <- ""
    x
  }
}