---
title: "Method concordance"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Method concordance}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
resource_files:
  - figures/logo.svg
  - figures/logo-dark.svg
---

<!-- cttir-vignette-logo: start -->
<style>
.cttir-vignette-logo { float: right; width: 120px; max-width: 30%; margin: 0 0 1rem 1.5rem; }
.cttir-vignette-logo img { width: 100%; height: auto; border: 0; background: transparent; box-shadow: none; }
.cttir-vignette-logo .cttir-vignette-logo-light { display: block; }
.cttir-vignette-logo .cttir-vignette-logo-dark { display: none; }
@media (prefers-color-scheme: dark) {
  .cttir-vignette-logo .cttir-vignette-logo-light { display: none; }
  .cttir-vignette-logo .cttir-vignette-logo-dark { display: block; }
}
[data-bs-theme="light"] .cttir-vignette-logo .cttir-vignette-logo-light { display: block; }
[data-bs-theme="light"] .cttir-vignette-logo .cttir-vignette-logo-dark { display: none; }
[data-bs-theme="dark"] .cttir-vignette-logo .cttir-vignette-logo-light { display: none; }
[data-bs-theme="dark"] .cttir-vignette-logo .cttir-vignette-logo-dark { display: block; }
</style>
<div class="cttir-vignette-logo">
  <img class="cttir-vignette-logo-light" src="figures/logo.svg" alt="mssrscopR logo" width="120" height="139" />
  <img class="cttir-vignette-logo-dark" src="figures/logo-dark.svg" alt="mssrscopR logo" width="120" height="139" />
</div>
<!-- cttir-vignette-logo: end -->

```{r concordance, echo = FALSE, results = 'asis'}
source_file <- file.path("..", "tools", "qualification", "METHOD_CONCORDANCE.md")
method_text <- readLines(source_file, warn = FALSE)
stopifnot(identical(method_text[[1L]], "# Method concordance"))
# The numerical boundary is included below; its source-relative link belongs
# to the standalone Markdown file rather than the installed vignette.
method_text <- sub("[numerical qualification](README.md)",
                   "numerical qualification", method_text, fixed = TRUE)
cat(method_text[-c(1L, 2L)], sep = "\n")
```