R/pad_seq_names.R

Defines functions pad_seq_names

pad_seq_names <- function(x, width = Inf) {
  len <- nchar(x)
  max_len <- min(width, max(len))

  x1 <- substring(x, 1, max_len)
  x2 <- stringr::str_pad(x1, width = max_len, side = 'right')

  return(x2)
}
maialab/agvgd documentation built on Jan. 10, 2024, 6:08 p.m.