Как я могу позволить узлу ссылку на URL (visNetwork, R) - PullRequest
Новая
       34

Как я могу позволить узлу ссылку на URL (visNetwork, R)

0 голосов
/ 23 апреля 2020 
#loading libraries
library(RedditExtractoR)
library(visNetwork)
library(dplyr)

#data
c <- reddit_content("https://www.reddit.com/r/ethereum/comments/g5p6m6/mycrypto_integrates_defizap_to_earn_interest_on/")
v <- user_network(c)

#define nodes and edges
nodes <- v$nodes %>% rename("title"=.data$user)
edges <- v$edges %>% rename("width"=.data$weight) %>% mutate(arrows="to")

#create column with urls
nodes$url <- paste0("https://www.reddit.com/user/", nodes$title)

#network
visNetwork(nodes = nodes, edges = edges) #%>% visEvents(click = ???)

Я бы хотел, чтобы URL открывался в новом окне браузера, когда пользователь нажимает на узел. Как мне это сделать? Заранее спасибо

...