Java Archive Wrapper Supporting the ‘graphstream’ Package
Contains all supporting JARs for working with the GraphStream Java APIs. (http://graphstream-project.org/) Version number matches version number of included ‘graphstreamjars’ libraries.
install.packages("graphstreamjars", repos = "https://cinc.rud.is")
# or
remotes::install_git("https://git.rud.is/hrbrmstr/graphstreamjars.git")
# or
remotes::install_git("https://git.sr.ht/~hrbrmstr/graphstreamjars")
# or
remotes::install_gitlab("hrbrmstr/graphstreamjars")
# or
remotes::install_bitbucket("hrbrmstr/graphstreamjars")
# or
remotes::install_github("hrbrmstr/graphstreamjars")
NOTE: To use the ‘remotes’ install options you will need to have the {remotes} package installed.
library(rJava)
library(graphstreamjars)
packageVersion("graphstreamjars")
## [1] '1.3.0'
library(graphstreamjars)
SingleGraph <- J("org.graphstream.graph.implementations.SingleGraph")
(graph <- .jnew(SingleGraph, "Tutorial 1"))
## [1] "Java-Object{Tutorial 1}"
graph$addNode("A")
## [1] "Java-Object{A}"
graph$addNode("B")
## [1] "Java-Object{B}"
graph$addNode("C")
## [1] "Java-Object{C}"
graph$addEdge("AB", "A", "B")
## [1] "Java-Object{AB[A--B]}"
graph$addEdge("BC", "B", "C")
## [1] "Java-Object{BC[B--C]}"
graph$addEdge("CA", "C", "A")
## [1] "Java-Object{CA[C--A]}"
graph$setStrict(FALSE)
graph$setAutoCreate(TRUE)
graph$addEdge("AB", "A", "B")
## [1] "Java-Object{AB[A--B]}"
graph$addEdge("BC", "B", "C")
## [1] "Java-Object{BC[B--C]}"
graph$addEdge("CA", "C", "A")
## [1] "Java-Object{CA[C--A]}"
(A <- graph$getNode("A"))
## [1] "Java-Object{A}"
(AB <- graph$getEdge("AB"))
## [1] "Java-Object{AB[A--B]}"
ni <- graph$getNodeIterator()
while(ni$hasNext()) {
print(.jrcall(ni, "next"))
}
## [1] "Java-Object{A}"
## [1] "Java-Object{B}"
## [1] "Java-Object{C}"