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))
}

Try the agvgd package in your browser

Any scripts or data that you put into this service are public.

agvgd documentation built on Sept. 11, 2022, 1:07 a.m.