Returns a time stamp based on the current time. now basically calls
gsub('.', '', sprintf('%.20f', as.numeric(Sys.time())), fixed=TRUE).
To ensure that at each call a different time stamp is delivered now
may call gsub(...) several times until two different results are delivered.
The last one is then returned.