Codebase list hmisc / HEAD R / nstr.s
HEAD

Tree @HEAD (Download .tar.gz)

nstr.s @HEAD — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
nstr <- function(string, times) {
  if(!is.atomic(string))
    stop("argument string must be an atomic vector")

  if(!is.numeric(times))
    stop("len must be a numeric vector")

  if(length(string) == 0)
    return(NULL)

  if(length(times) == 0)
    return(character(0))

  return(.Call("do_nstr", as.character(string), as.integer(times)))
}