Как я могу положить сюжет в подсказку в блестящем приложении

Question

Исходя из этого примера , можно легко поместить изображение в блестящее приложение. Я хотел бы поместить сюжет в подсказку (чтобы дать пользователям «предварительный просмотр» того, что они могут выбрать). Однако я не могу найти способ получить изображение сюжета. Я попытался сохранить график в виде файла изображения в рабочем каталоге и повторно загрузить его (чтобы он был как можно ближе к приведенному выше примеру), но не смог заставить его работать (закомментированная строка ниже не создает изображение).

library(shiny)
library(imager)

png("test.png")
plot(1:100, c(1:100)^2)
dev.off()

shinyApp(
  ui = fluidPage(
    checkboxInput("toggle", label = "Click me", value = FALSE), 
    tippy_this("toggle",allowHTML = T, tooltip = paste(img(src="http://tippy.john-coene.com/logo.png")),
               placement="right"),
    #tippy_this("toggle",allowHTML = T, tooltip = paste(img(load.image("test.png"))),
    #           placement="right"),
    plotOutput("plot")
  ),
  server = function(input, output) {
    output$plot <- renderPlot(plot(1:100, c(1:100)^2))
  })

Еще лучше было бы просто создать график в R и избежать сохранения / загрузки рисунка, но я не могу заставить это работать.