使用ggiraph onclick参数打开一个弹出窗口

Question

我想创建一个自包含的可视化对象（不发亮），在其中可以单击ggiraph元素（例如，条形，多边形，点）时打开弹出窗口。

ggiraph用户指南中的此修改示例在单击时导致窗口打开，并用Google搜索物种：

library(ggiraph)

iris$onclick <- sprintf("window.open(\"%s%s\")",
                          "http://en.wikipedia.org/wiki/", as.character(iris$Species))

iris$id <- as.character(1:nrow(iris))
gg_iris <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) + 
  geom_point_interactive(
    aes( data_id = id, tooltip = Species, onclick = onclick ), size = 3 ) 

girafe(ggobj = gg_iris)

除了打开浏览器窗口外，我还需要JavaScript代码来打开显示svg的模式窗口。