if (requireNamespace("aRtsy", quietly = TRUE)) {
print(names_aRtsy())
}
# Make take more than 5 seconds on CRAN servers
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))
if (requireNamespace("aRtsy", quietly = TRUE) &&
guess_has_R4.1_features("patterns")) {
grid::grid.newpage()
grid.pattern_aRtsy(x_hex, y_hex, type = "forest",
fill = c("black", "white", "grey"))
}
Run the code above in your browser using DataLab