images <- dir(system.file("extdata", package = "recolorize"),
".png", full.names = TRUE)
x <- runif(5)
y <- runif(5)
plot(x, y,
xlim = range(x) + c(-0.2, 0.2),
ylim = range(y) + c(-0.2, 0.2))
for (i in 1:length(images)) {
img <- readImage(images[i])
add_image(img, x[i], y[i], width = 0.1)
}
Run the code above in your browser using DataLab