cat(params$version)
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,]) } }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.