1imgfile <- file.path(tempdir(), "logo.png")
2logo <- hexSticker::sticker(
3  ~ {
4    par(mar = c(0,0,0,0))
5    plot(NA, xlim = c(0,1), ylim = c(-0.2,1.4), xlab = "", ylab = "", bty = "n", axes = FALSE)
6    lines(x = c(1,1)*0.35, y = c(0,1), lwd = 10, lend = 0L, col = "white")
7    lines(x = c(1,1)*0.65, y = c(0,1), lwd = 10, lend = 0L, col = "white")
8  },
9  package="parallelly",
10  p_size=20, s_x=0.8, s_y=0.6,
11  s_width=1.4, s_height=1.2,
12  h_color="#f39c12",
13  filename=imgfile
14)
15
16img <- magick::image_read(imgfile)
17img2 <- magick::image_resize(img, geometry = c(120, 140))
18magick::image_write(img2, "man/figures/logo.png")
19magick::image_write(img, "logo-large.png")
20
21
22
23