From 106889477da76c52c08683a975cfcf5af683846c Mon Sep 17 00:00:00 2001
From: mpadge <mark.padgham@email.com>
Date: Tue, 19 Mar 2024 17:26:57 +0100
Subject: [PATCH] call pkg 'editor_vacation_status' fn in ed table for #7

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

diff --git a/DESCRIPTION b/DESCRIPTION
index cae0ced..ec46c4b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.7.001
+Version: 0.0.7.002
 Authors@R: 
   person(given = "First",
          family = "Last",
diff --git a/codemeta.json b/codemeta.json
index ff427c3..8211b75 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.0.7.1",
+  "version": "0.0.7.002",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -123,7 +123,7 @@
       },
       "sameAs": "https://CRAN.R-project.org/package=tidyr"
     },
-    "SystemRequirements": null
+    "SystemRequirements": {}
   },
   "fileSize": "41.907KB"
 }
diff --git a/quarto/editors.qmd b/quarto/editors.qmd
index 916620c..88caa7c 100644
--- a/quarto/editors.qmd
+++ b/quarto/editors.qmd
@@ -53,28 +53,7 @@ cat (paste0 (
 
 
 ```{r editor-vacation-status, echo = FALSE}
-editor_vacation <- airtabler::airtable (
-    base = "app8dssb6a7PG6Vwj", table = "editor-vacation-status"
-)
-editor_vacation <- editor_vacation$`editor-vacation-status`$select_all (fields = list ("editor", "Action", "Start Date", "Return Date"))
-index <- vapply (editor_vacation$editor, function (i) length (i) > 0L, logical (1L))
-edvac <- editor_vacation [which (index), ]
-
-rev_prod <- airtabler::airtable (
-    base = "app8dssb6a7PG6Vwj", table = "reviewers-prod"
-)
-rev_prod <- rev_prod$`reviewers-prod`$select_all (fields = list ("github", "name"))
-rev_prod <- rev_prod [match (edvac$editor, rev_prod$id), ]
-edvac$github <- rev_prod$github
-edvac$name <- rev_prod$name
-
-edvac$away <- FALSE
-s <- edvac$`Start Date` [2]
-index <- (!is.na (edvac$`Start Date`) & is.na (edvac$`Return Date`)) |
-    as.Date (edvac$`Return Date`) > Sys.Date ()
-index [which (is.na (index))] <- FALSE
-edvac$away [index] <- TRUE
-
+edvac <- dashboard::editor_vacation_status ()
 editors_on_vacation <- edvac$github [which (edvac$away)]
 ed_status$status [ed_status$editor %in% editors_on_vacation] <- "ON LEAVE"
 ```