R/insert_minor.R

In INESSSQC/variation: Analyse Coefficient Variation Systématique

#' insert_minor
#' 
#' Cré un vecteur CHR à partir de 'major_lab' en insérant 'n_minor' fois charactère vide ("").
#'
#' @param major_labs Nombres à afficher.
#' @param n_minor Nombre de '""' à insérer entre chaque 'major_labs'.
#'
#' @keywords internal
#' @export
insert_minor <- function(major_labs, n_minor){
  labs <- c(sapply(major_labs, function(x) c(x, rep("", 4))))
  labs[1:(length(labs)-n_minor)]
}