pacman::p_load(jsonlite,tidygraph, ggraph, visNetwork, tidyverse)
MC1 <- fromJSON("data/MC1.json")
MC1_nodes <- as_tibble(MC1$nodes) %>% select(id, type, country)
MC1_edges <- as_tibble(MC1$links) %>% select(source,target, type, weight, key)