Adds "Getting help" to "Community" on homepage

NEWS.md

@@ -1,5 +1,8 @@
 # pkgdown (development version)
 
+* If `SUPPORT.md` is present in `/.github` folder, it will be included on
+  homepage as "Getting help" (@patilindrajeets, #2124).
+
 # pkgdown 2.0.4
 
 * New `check_pkgdown()` provides a lightweight way to check that your 

R/build-home-community.R

@@ -8,6 +8,11 @@ has_coc <- function(path = ".") {
     file_exists(path(path, '.github', 'CODE_OF_CONDUCT.md'))
 }
 
+has_support <- function(path = ".") {
+  file_exists(path(path, 'SUPPORT.md')) ||
+    file_exists(path(path, '.github', 'SUPPORT.md'))
+}
+
 data_home_sidebar_community <- function (pkg){
 
   pkg <- as_pkgdown(pkg)
@@ -22,6 +27,10 @@ data_home_sidebar_community <- function (pkg){
     links <- c(links, a(tr_("Code of conduct"), "CODE_OF_CONDUCT.html"))
   }
 
+  if (has_support(pkg$src_path)) {
+    links <- c(links, a(tr_("Getting help"), "SUPPORT.html"))
+  }
+
   if (is.null(links)) {
     return("")
   }

tests/testthat/_snaps/build-home-community.md

@@ -1,9 +1,10 @@
-# handles coc if present
+# handles CoC and SUPPORT if present
 
     <div class='community'>
     <h2 data-toc-skip>Community</h2>
     <ul class='list-unstyled'>
     <li><a href='CODE_OF_CONDUCT.html'>Code of conduct</a></li>
+    <li><a href='SUPPORT.html'>Getting help</a></li>
     </ul>
     </div>
 

tests/testthat/assets/site-dot-github/.github/SUPPORT.md

@@ -0,0 +1,4 @@
+# Getting help with pkgdown
+
+Thanks for using pkgdown. Before filing an issue, there are a few places
+to explore and pieces to put together to make the process as smooth as possible.

tests/testthat/test-build-home-community.R

@@ -1,10 +1,11 @@
-test_that("handles coc if present", {
+test_that("handles CoC and SUPPORT if present", {
   # .github is build-ignored to prevent a NOTE about unexpected hidden directory
   # so need to skip when run from R CMD check
   skip_if_not(dir_exists(test_path("assets/site-dot-github/.github")))
 
   pkg <- as_pkgdown(test_path("assets/site-dot-github"))
   expect_true(has_coc(pkg$src_path))
+  expect_true(has_support(pkg$src_path))
 
   # And added to sidebar
   text <- data_home_sidebar_community(pkg)