Generate author list from DESCRIPT ref #231

Author: chainsawriot

DESCRIPTION

@@ -42,7 +42,8 @@ Suggests:
     covr,
     knitr,
     rmarkdown,
-    readr (>= 1.2.1)
+    readr (>= 1.2.1),
+    desc
 License: GPL-3
 RoxygenNote: 7.3.2
 Roxygen: list(markdown = TRUE)

README.Rmd

@@ -105,7 +105,16 @@ read_ods("mtcars.ods", sheet = "plant", range = "A1:B10")
 
 The logo of readODS is a remix of LibreOffice Calc v6.1 icon created by the Document Foundation. The original LibreOffice logo is licensed under the [Creative Commons Attribution Share-Alike 3.0 Unported License](https://wiki.documentfoundation.org/File:LibO6_MIME.svg). readODS is not a product of the Document Foundation. The logo of readODS is licensed under the [Creative Commons Attribution Share-Alike 3.0 Unported License](https://creativecommons.org/licenses/by-sa/3.0/).
 
-The creator of this package is Gerrit-Jan Schutten. The current maintainer is Chung-hong Chan. This package benefits from contributions by Peter Brohan, Thomas J. Leeper, John Foster, Sergio Oller, Jim Hester, Stephen Watts, Arthur Katossky, Stas Malavin, Duncan Garmonsway, Mehrad Mahmoudian, Matt Kerlogue, Detlef Steuer, Michal Lauer, and Till Straube.
+```{r, echo = FALSE}
+.f <- function(person) {
+    if (is.null(person$email)) {
+        return(TRUE)
+    }
+    !person$email %in% c("phonixor@gmail.com", "chainsawtiney@gmail.com")
+}
+```
+
+The creator of this package is Gerrit-Jan Schutten. The current maintainer is Chung-hong Chan. This package benefits from contributions by `r Filter(.f, desc::description$new()$get_authors()) |> vapply(function(x) format(x, , include = c("given", "family")), FUN.VALUE = character(1)) |> paste(collapse = ", ")`.
 
 This package emulates the behaviours of `readxl::read_xlsx`, `writexl::write_xlsx` and `xlsx::write.xlsx`.
 

README.md

@@ -194,10 +194,10 @@ Unported License](https://creativecommons.org/licenses/by-sa/3.0/).
 
 The creator of this package is Gerrit-Jan Schutten. The current
 maintainer is Chung-hong Chan. This package benefits from contributions
-by Peter Brohan, Thomas J. Leeper, John Foster, Sergio Oller, Jim
-Hester, Stephen Watts, Arthur Katossky, Stas Malavin, Duncan Garmonsway,
-Mehrad Mahmoudian, Matt Kerlogue, Detlef Steuer, Michal Lauer, and Till
-Straube.
+by Peter Brohan, Detlef Steuer, Thomas J. Leeper, John Foster, Sergio
+Oller, Jim Hester, Stephen Watts, Arthur Katossky, Stas Malavin, Duncan
+Garmonsway, Mehrad Mahmoudian, Matt Kerlogue, Michal Lauer, Till
+Straube, Mauricio Vargas Sepulveda, Marcin Kalicinski.
 
 This package emulates the behaviours of `readxl::read_xlsx`,
 `writexl::write_xlsx` and `xlsx::write.xlsx`.