In rappster/umlr: Helper functions to create UML diagrams from R code

library(umlr)
run <- FALSE
root_dir <- paste(rep("../", 1), collapse = "")
knitr::opts_chunk$set(comment = "#>", collapse = TRUE)
knitr::opts_knit$set(root.dir = root_dir)

Class definitions

library(R6)
ClassA <- R6::R6Class("ClassA",
  public = list(
    x_1 = letters,
    x_2 = TRUE,
    foo = function() {
      "foo"
    }
  ),
  private = list(
    .x_1 = LETTERS,
    .x_2 = FALSE,
    .foo = function() {
      ".foo"
    }
  )
)
ClassB <- R6::R6Class("ClassB", inherit = ClassA, public = list(x_3 = 1))

Rendering

uml <- umlr::transform("ClassB")

uml_file <- umlr:::render(uml, 'Architecture',
  filename = "vignettes/uml", jarfile = "lib/plantuml.jar",
  normalize = TRUE
)

rappster/umlr documentation built on May 27, 2019, 2:02 a.m.