In inbo/protocolshelper: Helper Functions to Manage Protocols

Dependencies

``{=html} <!-- Do not enter anything here. If there are dependencies enter them in the yaml section ofindex.Rmd` -->

```r
empty_table <- tibble(
  protocol_code = character(),
  version_number = character(),
  params = character(),
  appendix = logical()
) %>%
  add_row() %>%
  rename(
    `Protocol code` = protocol_code,
    `Version number` = version_number,
    `Included as subprotocol` = appendix
  ) %>%
  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(
        `Protocol code` = protocol_code,
        `Version number` = version_number,
        `Included as subprotocol` = appendix
      ) %>%
      pander(split.tables = Inf)
  } else {
    empty_table
  }
} else {
  empty_table
}
rm(empty_table)

inbo/protocolshelper documentation built on June 2, 2025, 2:17 a.m.