tooltip problem in visNetwork

[Sanjeev Singwi]

Hi, 

I am using visNetwork to create a graph in my shiny app.

I would like each node to link to a webpage.  

I have embedded a link into the tooltip but I am not able to click since the tooltip disappears when I move the mouse to the link.

here is my toy example 

###########################################

library(visNetwork)

nodes <- data.frame(id = 1:10,

                    label = paste("Node", 1:10),                             

                    title = paste0(1:10,'<a href="www.rstudio.com">Click</a>')

)        

edges <- data.frame(from = sample(1:10,8), to = sample(1:10, 8)

                                                )                      

visNetwork(nodes,edges)

#############################################

is there a way to move the mouse over the tooltip and click the link.

is there an alternative way to embed a link into a node? possibly via visEvents()

Thanks Very Much

Sanjeev