R/catFun.R

Defines functions catFun

catFun <- 
function(x,n=50)
{
  if(nchar(x) > n){
    n = nchar(x)
  }
  
  cat("\r",x,rep(" ",(n - nchar(x))))
  
}

Try the mqqc package in your browser

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

mqqc documentation built on July 30, 2020, 3 p.m.