R tooltipsterR with image tooltip

Built with blockbuilder.org

As an extension to the examples shown in the post Week 44|tooltipsterR, I thought it might be interesting to demonstrate how to provide an R plot as a tooltip with the R htmlwidget tooltipsterR. An interactive SVG plot would be even better, so I’ll try that next.

library(tooltipsterR)
library(htmltools)
library(base64enc)

tf <- tempfile()
png(tf)
  plot(1:3)
dev.off()
bE <- base64encode(tf)
unlink(tf)

browsable(
  tagList(
    tags$div(
      id = "plot1",
      style = "height:200px;width:200px",
      tags$pre(
        "plot(1:3)"
      )
    ),
    tooltipster(),
    tags$script(HTML(sprintf(
      "
      $('#plot1').tooltipster({
        content: $('<img src=\"data:image/png;base64,%s\">'),
        arrow: false,
        offsetY: -550
      })
      ",
      bE
    )))
  )
)