A bit ugly too, but using only base R: ``` alpha_hex <- function(hex_code, alpha = 1){ rgb_code = col2rgb(hex_code)/255 do.call(rgb, as.list((rgb_code + (1-rgb_code) * (1-alpha)))) } ```

Nearly identical I think. for alpha_hex("purple", 0.8), my hacked function returns "#B34CF3" and yours "#B34DF3". Maybe something in the 255 division.