Strip above plot

The white_around_sticker=TRUE argument doesn't cover enough area. IT leaves a small strip at the top of the plot, if there is an overflow. See the below reprex for an example:

library(hexSticker)
library(ggplot2)

#Create a plain red plot that fills the plot window
p <- ggplot() + 
  theme_void() +
  theme(plot.background=element_rect(fill="red"))

#Create the sticker
s <- sticker(p,package = "",
             s_x=1,s_y=1,s_width=2,s_height=2.5,
             white_around_sticker=TRUE)
#Plot to see it
plot(s)

Start by running the provided R reprex with ggplot2, sticker(), and plot(s) to reproduce the strip above the plot. Trace the sticker rendering path from sticker() through plotting, then verify that white_around_sticker=TRUE covers overflow at the top without leaving a visible strip.