You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1.4 KiB
1.4 KiB
---
output: rmarkdown::github_document
editor_options:
chunk_output_type: console
---
```{r pkg-knitr-opts, include=FALSE}
hrbrpkghelpr::global_opts()
```
```{r badges, results='asis', echo=FALSE, cache=FALSE}
hrbrpkghelpr::stinking_badges(repo_status = "WIP")
```
```{r description, results='asis', echo=FALSE, cache=FALSE}
hrbrpkghelpr::yank_title_and_description()
```
## What's Inside The Tin
The following functions are implemented:
```{r ingredients, results='asis', echo=FALSE, cache=FALSE}
hrbrpkghelpr::describe_ingredients()
```
## Installation
```{r install-ex, results='asis', echo=FALSE, cache=FALSE}
hrbrpkghelpr::install_block()
```
## Usage
```{r use-1}
library(rJava)
library(graphstreamjars)
packageVersion("graphstreamjars")
```
```{r use-2}
library(graphstreamjars)
SingleGraph <- J("org.graphstream.graph.implementations.SingleGraph")
(graph <- .jnew(SingleGraph, "Tutorial 1"))
graph$addNode("A")
graph$addNode("B")
graph$addNode("C")
graph$addEdge("AB", "A", "B")
graph$addEdge("BC", "B", "C")
graph$addEdge("CA", "C", "A")
graph$setStrict(FALSE)
graph$setAutoCreate(TRUE)
graph$addEdge("AB", "A", "B")
graph$addEdge("BC", "B", "C")
graph$addEdge("CA", "C", "A")
(A <- graph$getNode("A"))
(AB <- graph$getEdge("AB"))
ni <- graph$getNodeIterator()
while(ni$hasNext()) {
print(.jrcall(ni, "next"))
}
```
## `graphstreamjars` Metrics
```{r cloc, echo=FALSE}
cloc::cloc_pkg_md()
```