Contains all supporting JARs for working with the GraphStream Java APIs. () Version number matches version number of included 'graphstreamjars' libraries.

boB Rudis c2c071b0f8 README		4 年之前
R	initial	4 年之前
inst	initial	4 年之前
java	initial	4 年之前
man	initial	4 年之前
tests	initial	4 年之前
.DS_Store	initial	4 年之前
.Rbuildignore	initial	4 年之前
.gitignore	initial	4 年之前
DESCRIPTION	initial	4 年之前
NAMESPACE	initial	4 年之前
NEWS.md	initial	4 年之前
README.Rmd	initial	4 年之前
README.md	README	4 年之前
graphstreamjars.Rproj	initial	4 年之前

README.md

graphstreamjars

Java Archive Wrapper Supporting the ‘graphstream’ Package

Description

Contains all supporting JARs for working with the GraphStream Java APIs. (http://graphstream-project.org/) Version number matches version number of included ‘graphstreamjars’ libraries.

What’s Inside The Tin

The following functions are implemented:

Installation

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.

Usage

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}"