From 661c2953c047b6fd9cb09f7380d9d567d3245f81 Mon Sep 17 00:00:00 2001
From: mpadge <mark.padgham@email.com>
Date: Mon, 29 Apr 2024 14:35:21 +0200
Subject: [PATCH] Add EiC info at top of editors page; close #33

---
 DESCRIPTION        |  2 +-
 codemeta.json      |  2 +-
 quarto/editors.qmd | 19 +++++++++++++++++++
 3 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 2520145..2829ca3 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.2.1.004
+Version: 0.2.2
 Authors@R: 
   person(given = "First",
          family = "Last",
diff --git a/codemeta.json b/codemeta.json
index a99177b..484cf5a 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -6,7 +6,7 @@
   "name": "dashboard: What the Package Does (One Line, Title Case)",
   "codeRepository": "https://github.com/ropensci-review-tools/dashboard",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.2.1.004",
+  "version": "0.2.2",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
diff --git a/quarto/editors.qmd b/quarto/editors.qmd
index b3f68eb..4b6c38a 100644
--- a/quarto/editors.qmd
+++ b/quarto/editors.qmd
@@ -33,8 +33,27 @@ ed_timeline_total <- ed_dat$timeline_total |>
     dplyr::filter (name %in% ed_status$editor)
 ed_timeline_new <- ed_dat$timeline_new |>
     dplyr::filter (name %in% ed_status$editor)
+eic <- ed_dat$eic
 ```
 
+```{r eic-info, echo = FALSE, results = 'asis'}
+msg <- paste0 (
+    "Current Editor-in-Charge is [",
+    eic$name [1], "](https://github.com/", eic$github [1], ").\n"
+)
+cat (msg)
+cat ("\n")
+if (nrow (eic) > 1L) {
+    msg <- paste0 (
+        "Next Editor-in-Charge (from ", eic$start_date [2],
+        ") will be [",
+        eic$name [2], "](https://github.com/", eic$github [2], ").\n"
+    )
+}
+cat (msg)
+```
+
+
 ## Editor Overview {#editor-overview}
 
 The following interactive table summarises the availability of our editorial