R/show_less_labels.R

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

Defines functions show_less_labels

Documented in show_less_labels

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