if (FALSE) { # interactive() || identical(Sys.getenv("IN_PKGDOWN"), "true")
dragon_clipped = dragon
dragon_clipped[dragon_clipped > 1] = 1
# Render a transparent dragon emoji and center it on a pixel with hjust/vjust:
dragon_emoji = render_text_image(
"\U0001F409",
size = 80,
background_alpha = 0,
use_ragg = TRUE,
trim = TRUE,
trim_padding = 8
)
render_sprite_overlay(
dragon_clipped,
image_overlay = dragon_emoji,
overlay_coords = c(ncol(dragon_clipped) / 2, nrow(dragon_clipped) / 2),
hjust = 0.5,
vjust = 0.5,
preview = TRUE
)
# The same justification can be supplied as overlay_just = c(hjust, vjust):
render_sprite_overlay(
dragon_clipped,
image_overlay = dragon_emoji,
overlay_coords = c(ncol(dragon_clipped), nrow(dragon_clipped)),
overlay_just = c(1, 1),
preview = TRUE
)
}
Run the code above in your browser using DataLab