diff --git a/R/padVariable.r b/R/zeroPad.r
similarity index 84%
rename from R/padVariable.r
rename to R/zeroPad.r
index 0f2b04f588985f10084c3cc48bdfb80815a6f252..9aa4d4616df8bf665274f0d539e8d436346e95ae 100644
--- a/R/padVariable.r
+++ b/R/zeroPad.r
@@ -9,10 +9,10 @@
 #' @export
 #' @examples
 #' pCode <- '10'
-#' correctPCode <- padVariable(pCode,5)
+#' correctPCode <- zeroPad(pCode,5)
 #' pCodes <- c('100','1000','0','12345','1565465465465465')
-#' correctPCodes <- padVariable(pCodes,5)
-padVariable <- function(x,padTo){
+#' correctPCodes <- zeroPad(pCodes,5)
+zeroPad <- function(x,padTo){
   if(padTo <= 1) return(x)
   numDigits <- nchar(x)
   padding <- padTo-numDigits