From 93699242bbfb14342eaea64b1cc6bc0b4e58d4ee Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 29 Oct 2014 14:48:33 -0500
Subject: [PATCH] Changed name for clarity.
---
R/{padVariable.r => zeroPad.r} | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
rename R/{padVariable.r => zeroPad.r} (84%)
diff --git a/R/padVariable.r b/R/zeroPad.r
similarity index 84%
rename from R/padVariable.r
rename to R/zeroPad.r
index 0f2b04f5..9aa4d461 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
--
GitLab