In humburg/reportmd: Scientific reports with RMarkdown

Appendix {.tabset}

Custom Functions

Configuration

Version

Document version

cat(params$version)

Session Info

info <- devtools::session_info()
info$platform <- unclass(info$platform)
info$packages <- as.data.frame(info$packages)
pander(unclass(info))

r if(length(knitr::opts_knit$get('.downloads'))) '## Downloads' else ' '

downloads <- knitr::opts_knit$get('.downloads')
if(length(downloads)){
  exists <- sapply(downloads, '[[', 'written')
  n <- sum(exists)
  if(n){
    dwn <- vector(n, mode='list')
    selected <- mget(names(downloads)[exists], downloads)
    for(i in 1:n){
      dwn[[i]] <- download_link(selected[[i]], format='table')
    }
    dwn <- do.call(rbind, dwn)
    idx <- order(dwn[[1]])
    printMD(dwn[idx,])
  }
}