Creates a zero-padded string from an integer.

gistfile1.r

# Creates a zero-padded string from an integer.
#
# The number of digits is defaulted to 3 but can be specified by the user.
# Examples:
# padded_integer(5) => "005"
# padded_integer(42) => "042"
# padded_integer(421) => "421"
# padded_integer(421, digits = 4) => "0421
#
padded_integer <- function(x, digits = 3) {
	formatC(x, digits = digits - 1, flag = "0", format = "d")
}