R/makeNstr.s

Defines functions makeNstr

Documented in makeNstr

makeNstr <- function(char, len) {
  mapply(function(char, len) {
    if(is.na(len)) {
      '\n'
    } else if(len == 0) {
      ''
    } else {
      paste(rep.int(x=char, times=len), collapse='')
    }
  }, char, len, USE.NAMES=FALSE)
}
harrelfe/Hmisc documentation built on March 19, 2024, 3:22 a.m.