Pajek 2 NetsJSON

> wdir <- "C:/Users/batagelj/Downloads/data/CoMuNe/pajek"
> setwd(wdir)
> library(rjson)
> source("https://raw.githubusercontent.com/bavla/Linked/master/source/Pajek.R")
> p <- clu2vector("https://raw.githubusercontent.com/bavla/Linked/master/data/PNAS1.clu")
> N <- net2pairs("https://raw.githubusercontent.com/bavla/Linked/master/data/PNAS1.net")
> n <- length(N$nodes); m <- length(N$links)
> for(i in 1:n) N$nodes[[i]]$mode <- p[i]
> N$info['network'] <- "PNAS1"; N$info['mode'] <- 2
> N['NetsJSON'] <- 'basic'
> json <- file("PNAS1.json","w"); cat(toJSON(N),file=json); close(json)