if (FALSE) { # interactive() || identical(Sys.getenv("IN_PKGDOWN"), "true")
txt = render_text_image("\U0001F409", size = 120, background_alpha = 0)
render_alpha_outline(txt, expand = 2, blur = 1, color = "purple") |>
plot_image()
#Make a rainbow outline
render_alpha_outline(txt, expand = 2, blur = 0.1, color = "darkgreen") |>
render_alpha_outline(expand = 2, blur = 0.1, color = "yellow") |>
render_alpha_outline(expand = 2, blur = 0.1, color = "orange") |>
render_alpha_outline(expand = 2, blur = 0.1, color = "red") |>
render_alpha_outline(expand = 2, blur = 0.1, color = "purple") |>
render_alpha_outline(expand = 2, blur = 0.1, color = "blue") |>
plot_image()
}
Run the code above in your browser using DataLab