as.character.paddzero <- function(x,digits=6){
  x <- x + 10^digits
  return( substr( as.character(x), 2, digits+1) )
}