In inbo/protocolshelper: Helper Functions to Manage Protocols

```{=html} <!-- Instructies bij opmaak van het protocol:

Hieronder vind je de verschillende onderdelen van een protocol. In de bijhorende losse Rmd bestanden vind je een beschrijving wat er bij elk onderdeel vermeld moet worden. Het is in die bestanden dat je moet editeren. Niet alle onderdelen zijn altijd van toepassing. Laat in die gevallen de titels staan en vermeld expliciet "niet van toepassing". -->

```r
library(knitr)
opts_chunk$set(
  echo = FALSE,
  eval = TRUE,
  dpi = 300,
  fig.width = 150 / 25.4,
  fig.height = 100 / 25.4,
  out.width = "100%",
  warning = FALSE,
  error = TRUE,
  message = FALSE
)
library(dplyr)
library(purrr)
library(protocolhelper)
library(pander)
panderOptions("table.alignment.default", "left")
metadata <- rmarkdown::metadata
path_to_protocol <- get_path_to_protocol(metadata$protocol_code)
type <- get_protocol_type(metadata$protocol_code, auto_identifier = TRUE)

Metadata {.unnumbered}

tibble(
  reviewers = metadata[["reviewers"]] |> paste(collapse = ", "),
  documentbeheerder = metadata[["file_manager"]],
  protocolcode = metadata[["protocol_code"]],
  versienummer = metadata[["version_number"]],
  taal = metadata[["language"]]
) %>%
  pander::pander(split.tables = Inf)

sprintf("Controleer [deze tabel](../%s.html){target=\"_blank\"} om te zien of een meer recente versie beschikbaar is.", type) |> cat() # nolint  

inbo/protocolshelper documentation built on Sept. 6, 2024, 9:15 p.m.