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 Sept. 6, 2024, 9:15 p.m.