color <- c("#FF00FF", "#999999999999", "red")
# return 12 hexidecimal digit color
loon:::l_hexcolor(color)
# return 6 hexidecimal digit color
as_hex6color(color)
# return color names
l_colorName(color)
if (FALSE) # WRONG COLORS
hex12tohex6(color)
Run the code above in your browser using DataLab