red <- 51
green <- 255
blue <- 51
alpha <- 128
html_color <- rgb(red, green, blue,
maxColorValue = 255)
# html_color = #33FF33
# With transparency
alpha_color <- rgb(red, green, blue, alpha,
maxColorValue = 255)
# alpha_color = #33FF3380
# Lowercase letters
lower_color <- tolower(html_color)
# lower_color = #33ff33
cat("html_color =", html_color, "\n")
cat("alpha_color =", alpha_color, "\n")
cat("lower_color =", lower_color, "\n")