add_aagi_logo() doesn't get it in the upper left corner

[adamhsparks]

Logo is upper left but appears inside the figure not outside as it should.

library(theme.aagi)
library("ggplot2")

p1 <- ggplot(mtcars) +
  geom_point(aes(
    x = wt,
    y = mpg,
    colour = factor(gear)
   )) +
  facet_wrap(~ am) +
  theme_aagi()

ggsave(p1, filename = "AAGI.png", path = tempdir())

add_aagi_logo(file_in = file.path(tempdir(), "AAGI.png"),
               file_out = file.path(tempdir(), "AAGI_logo.png"))

x <- magick::image_read(file.path(tempdir(), "AAGI_logo.png"))
print(x)