if (require("magick")) {
x_hex <- 0.5 + 0.5 * cos(seq(2 * pi / 4, by = 2 * pi / 6, length.out = 6))
y_hex <- 0.5 + 0.5 * sin(seq(2 * pi / 4, by = 2 * pi / 6, length.out = 6))
# requires internet connection to download from placeholder image websites
try(grid.pattern_placeholder(x_hex, y_hex, type="bear"))
}
print(names_placeholder)
Run the code above in your browser using DataLab