inst/doc/original-source-v1.R

In equil2: Calculate Urinary Saturation with the EQUIL2 Algorithm

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

## ----v1-source, echo=FALSE, results='asis'------------------------------------
src_path <- system.file("clsEquil2.bas.txt", package = "equil2")
if (!nzchar(src_path)) {
  # Fall back to the inst/ source if not yet installed
  # (e.g. devtools::build_vignettes() before install).
  src_path <- file.path("..", "inst", "clsEquil2.bas.txt")
}
cat("```vb\n")
cat(readLines(src_path), sep = "\n")
cat("\n```\n")