cover_info(): collapse the corresponding email field

inbo · Jun 11, 2024 · 70444d8 · 70444d8
1 parent 54098e1
commit 70444d8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/cover_info.R b/R/cover_info.R
@@ -21,7 +21,9 @@ cover_info <- function(path = "index.Rmd") {
     function(x) {
       ifelse(is.null(x$corresponding) || !x$corresponding, "", x$email)
     }
-  ) -> yaml_header$corresponding
+  ) |>
+    paste(collapse = ", ") |>
+    trimws(whitespace = "[ \t\r\n,]") -> yaml_header$corresponding
   vapply(
     yaml_header$author, FUN.VALUE = character(1),
     FUN = function(author) {