In inbo/protocolshelper: Helper Functions to Manage Protocols

Afhankelijkheden

``{=html} <!-- Hier niets invullen. Indien er afhankelijkheden zijn deze invullen in de yaml sectie vanindex.Rmd` -->

```r
empty_table <- tibble(
  protocol_code = character(),
  version_number = character(),
  params = character(),
  appendix = logical()
) %>%
  add_row() %>%
  rename(
    `Protocolcode` = protocol_code,
    `Versienummer` = version_number,
    `Opgenomen als subprotocol` = appendix) %>%
  pander::pander(split.tables = Inf)

if (exists("params")) {
  if (!is.null(params$dependencies)) {
    transpose(params$dependencies) %>%
      as_tibble() %>%
      mutate(protocol_code = as.character(protocol_code),
             version_number = as.character(version_number),
             params = as.character(params),
             version_number = ifelse(params == "NA",
                                     paste0("[", version_number, "](../",
                                            version_number, "/", "index.html)"),
                                     version_number),
             appendix = as.logical(appendix)) %>%
      rename(
        `Protocolcode` = protocol_code,
        `Versienummer` = version_number,
        `Opgenomen als subprotocol` = appendix) %>%
      pander::pander(split.tables = Inf)
  } else {
    empty_table
  }
} else {
  empty_table
}
rm(empty_table)

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