r <- sapply(0:8, function(n) ccat(repChar(" ",n), n))
cbind(r)
repChar("-", 4)
repChar("_", 6)
## it may make sense to a string of more than one character:
repChar("-=- ", 6)
## show the very simple function definitions:
repChar
bl.string
Run the code above in your browser using DataLab