removed strrep for now

trinker · Mar 9, 2017 · e8385c0 · e8385c0
1 parent aa3afb3
commit e8385c0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/f_pad_zero.R b/R/f_pad_zero.R
@@ -24,7 +24,8 @@ f_pad_zero <- function(x, width = NULL, pad.char = '0', ...){
     stopifnot(width >= maxd)
     zeros <- width - lens
 
-    x[!is_na] <- paste0(strrep(pad.char, zeros[!is.na(zeros)]), x[!is_na])
+    ## x[!is_na] <- paste0(strrep(pad.char, zeros[!is.na(zeros)]), x[!is_na])  #replace w/ this eventually
+    x[!is_na] <- paste0(unlist(lapply(zeros[!is.na(zeros)], function(x) paste(rep(pad.char, x), collapse = ""))), x[!is_na])
     x
 }