In inbo/protocolshelper: Helper Functions to Manage Protocols

if (exists("params")) {
  if (!is.null(params$dependencies)) {
    mdfiles <- paste0(map_chr(params$dependencies, "protocol_code"),
                      "-",
                      map_chr(params$dependencies, "version_number"),
                      ".md")
    child_docs <- file.path(map_chr(params$dependencies, "version_number"),
                            mdfiles)

    child_docs <- child_docs[map_lgl(params$dependencies, "appendix")]

    if (length(child_docs) > 0) {
      res <- map(child_docs, knit_child, quiet = TRUE)
      cat(
        c("# (PART) Subprotocols {.unnumbered}", "", unlist(res)), sep = "\n")
    }
  }
}