has_contributing <- function(path = ".") {
file_exists(path(path, 'CONTRIBUTING.md')) ||
file_exists(path(path, '.github', 'CONTRIBUTING.md'))
}
has_coc <- function(path = ".") {
file_exists(path(path, 'CODE_OF_CONDUCT.md')) ||
file_exists(path(path, '.github', 'CODE_OF_CONDUCT.md'))
}
data_home_sidebar_community <- function (pkg){
pkg <- as_pkgdown(pkg)
links <- NULL
if (has_contributing(pkg$src_path)) {
links <- c(
links,
'<a href="CONTRIBUTING.html">Contributing guide</a>'
)
}
if (has_coc(pkg$src_path)) {
links <- c(
links,
'<a href="CODE_OF_CONDUCT.html">Code of conduct</a>'
)
}
if (is.null(links)) {
return("")
}
sidebar_section("Community", links)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.