Require contact details in CoC (r-lib#1374)

Fixes r-lib#1269

.github/CODE_OF_CONDUCT.md

@@ -59,8 +59,8 @@ representative at an online or offline event.
 ## Enforcement
 
 Instances of abusive, harassing, or otherwise unacceptable behavior may be
-reported to the community leaders responsible for enforcement at [INSERT CONTACT
-METHOD]. All complaints will be reviewed and investigated promptly and fairly.
+reported to the community leaders responsible for enforcement at [email protected]. 
+All complaints will be reviewed and investigated promptly and fairly.
 
 All community leaders are obligated to respect the privacy and security of the
 reporter of any incident.
@@ -115,14 +115,12 @@ community.
 
 This Code of Conduct is adapted from the [Contributor Covenant][homepage],
 version 2.0,
-available at https://www.contributor-covenant.org/version/2/0/
-code_of_conduct.html.
+available at <https://www.contributor-covenant.org/version/2/0/code_of_conduct.html>.
 
 Community Impact Guidelines were inspired by [Mozilla's code of conduct
 enforcement ladder](https://github.com/mozilla/diversity).
 
 [homepage]: https://www.contributor-covenant.org
 
 For answers to common questions about this code of conduct, see the FAQ at
-https://www.contributor-covenant.org/faq. Translations are available at https://
-www.contributor-covenant.org/translations.
+<https://www.contributor-covenant.org/faq>. Translations are available at <https://www.contributor-covenant.org/translations>.

NEWS.md

@@ -1,5 +1,8 @@
 # usethis (development version)
 
+* `use_code_of_conduct()` now requires a `contact` argument to supply contact
+  details for reporting CoC violations (#1269).
+
 * We no longer suggest including your test environments in `cran-comments.md`,
   since there's no evidence that CRAN finds it useful, and it's annoying to
   keep up to date (#1365). 

R/code-of-conduct.R

@@ -14,12 +14,18 @@
 #' `url` field in `_pkgdown.yml`; otherwise it will link to a copy of the CoC
 #' on <https://www.contributor-covenant.org>.
 #'
+#' @param contact Contact details for making a code of conduct report.
+#'   Usually an email address.
 #' @param path Path of the directory to put `CODE_OF_CONDUCT.md` in, relative to
 #'   the active project. Passed along to [use_directory()]. Default is to locate
 #'   at top-level, but `.github/` is also common.
 #'
 #' @export
-use_code_of_conduct <- function(path = NULL) {
+use_code_of_conduct <- function(contact, path = NULL) {
+  if (missing(contact)) {
+    abort("`use_code_of_conduct()` requires contact details in first argument")
+  }
+
   if (!is.null(path)) {
     use_directory(path, ignore = is_package())
   }
@@ -28,6 +34,7 @@ use_code_of_conduct <- function(path = NULL) {
   new <- use_template(
     "CODE_OF_CONDUCT.md",
     save_as = save_as,
+    data = list(contact = contact),
     ignore = is_package() && is.null(path)
   )
 

R/tidyverse.R

@@ -160,7 +160,7 @@ use_tidy_issue_template <- function() {
 #' @rdname tidyverse
 use_tidy_coc <- function() {
   use_dot_github()
-  use_code_of_conduct(path = ".github")
+  use_code_of_conduct("[email protected]", path = ".github")
 }
 
 #' @export

inst/templates/CODE_OF_CONDUCT.md

@@ -59,8 +59,8 @@ representative at an online or offline event.
 ## Enforcement
 
 Instances of abusive, harassing, or otherwise unacceptable behavior may be
-reported to the community leaders responsible for enforcement at [INSERT CONTACT
-METHOD]. All complaints will be reviewed and investigated promptly and fairly.
+reported to the community leaders responsible for enforcement at {{{ contact }}}. 
+All complaints will be reviewed and investigated promptly and fairly.
 
 All community leaders are obligated to respect the privacy and security of the
 reporter of any incident.

tests/testthat/test-code-of-conduct.R

@@ -1,5 +1,5 @@
 test_that("use_code_of_conduct() creates promised file", {
   create_local_project()
-  use_code_of_conduct()
+  use_code_of_conduct("[email protected]")
   expect_proj_file("CODE_OF_CONDUCT.md")
 })