Откройте всплывающее окно, используя аргумент 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.