powered by
zeroPad(x, padTo)
pCode <- '10' correctPCode <- zeroPad(pCode,5) pCodes <- c('100','1000','0','12345','1565465465465465') correctPCodes <- zeroPad(pCodes,5)
Run the code above in your browser using DataLab