Skip to main content

Browse the archive

https://github.com/cran/pkgdown
06 July 2022, 06:29:39 UTC
Revision 651be9df176377fc2008a1e0990db54e7e2f0daf authored by Hadley Wickham on 14 September 2019, 23:10:08 UTC, committed by cran-robot on 14 September 2019, 23:10:08 UTC 
version 1.4.1
1 parent 6522ead
Raw File
Tip revision: 651be9df176377fc2008a1e0990db54e7e2f0daf authored by Hadley Wickham on 14 September 2019, 23:10:08 UTC
version 1.4.1
Tip revision: 651be9d
build-home-community.R 
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)

}
back to top