Package name to accept expression()

[rafapereirabr]

It would be great if we could pass a mathematical expression() as a package name to the sticker function.

library(ggplot2)
library(hexSticker)

p <- ggplot(aes(x = mpg, y = wt), data = mtcars) + geom_point() +
  annotate("text", x = 25, y = 5, size=8, label = expression(paste("x"^2,"y")) ) +
  theme_void() + theme_transparent()


sticker(p, package= expression(paste("x"^2,"y")), p_size=20, s_x=1, s_y=.75, s_width=1.3, s_height=1,
        filename="man/figures/ggplot2.png")

[rafapereirabr]

Perhaps changing the geom_pkgname function like this could work.

geom_pkgname <- function (package, x = 1, y = 1.4, color = "#FFFFFF", family = "Roboto", 
                          size = 8, ...) 
{
  # family <- load_font(family)
  annotate("text", x = x, y = y, label = package,  size = size, color = color, family = family )
}

[GuangchuangYu]

supported.

[rafapereirabr]

Thanks!