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