```
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))))
}
```
```
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))))
}
```