R/gap_padding.R

Defines functions gap_padding

gap_padding <- function(x, len, gap = '-') {
  n <- length(x)
  n_gaps <- max(0, len - n)
  c(x, rep(gap, n_gaps))
}
maialab/agvgd documentation built on Jan. 10, 2024, 6:08 p.m.