In inbo/protocolshelper: Helper Functions to Manage Protocols

```{=html} <!-- Instructions for drawing up the protocol:

Below you will find the different parts of a protocol. In the accompanying separate Rmd files you will find a description of what must be mentioned with each part. It is in those files that you need to edit. Not all parts always apply. In those cases, leave the title headings and explicitly state "not applicable". -->

```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 = ", "),
  `file manager` = metadata[["file_manager"]],
  protocolcode = metadata[["protocol_code"]],
  `version number` = metadata[["version_number"]],
  language = metadata[["language"]],
  theme = metadata[["theme"]]
) %>%
  pander::pander(split.tables = Inf)

sprintf("Check the [table listing all versions](../%s.html){target=\"_blank\"} to see if a more recent version is available.", type) |> cat() # nolint

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