## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ---- eval = FALSE, echo = FALSE----------------------------------------------
#  suppressMessages(library(plantuml))
#  uml_str <- paste(readLines("design.plantuml"), collapse = "\n")
#  uml <- plantuml::plantuml(x = uml_str)
#  plot(uml, file = "./vignettes/class_diagram.svg")