Give all parts of the number with different colors

Give all parts of the number with different colors

to_color(number, colors = c("red", "green", "yellow", "blue"))

Arguments

number	integer
colors	vector of different colors

Value

vector of colored int

Examples

to_color(1234567L, c("red", "green", "yellow", "blue"))
#> [1] "\033[32m1\033[0m\033[33m2\033[0m\033[34m3\033[0m\033[31m4\033[0m\033[32m5\033[0m\033[33m6\033[0m\033[34m7\033[0m"