R/insert_minor.R

In INESSSQC/INESSS: Useful functions

#' insert_minor
#'
#' Cré un vecteur CHR à partir de 'major_lab' en insérant , entre chaque valeur, 'n_minor' fois charactère vide ("").
#'
#' @param major_labs Nombres à afficher.
#' @param n_minor Nombre de '""' à insérer entre chaque 'major_labs'.
#'
#' @return Vecteur de CHR indiquant les \code{major_labs} séparés par un '\code{n_minor}' fois "".
#'
#' @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)]
}