add 'ed-reviews.qmd' for #7

ropensci-review-tools · Mar 19, 2024 · e8cf47d · e8cf47d
1 parent 33756f7
commit e8cf47d
Show file tree

Hide file tree

Showing 4 changed files with 88 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.5.014
+Version: 0.0.6
 Authors@R: 
   person(given = "First",
          family = "Last",

diff --git 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.5.014",
+  "version": "0.0.6",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -93,7 +93,31 @@
       },
       "sameAs": "https://CRAN.R-project.org/package=lubridate"
     },
-    "SystemRequirements": {}
+    "5": {
+      "@type": "SoftwareApplication",
+      "identifier": "memoise",
+      "name": "memoise",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=memoise"
+    },
+    "6": {
+      "@type": "SoftwareApplication",
+      "identifier": "tidyr",
+      "name": "tidyr",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=tidyr"
+    },
+    "SystemRequirements": null
   },
-  "fileSize": "35.714KB"
+  "fileSize": "39.933KB"
 }
diff --git a/quarto/_quarto.yml b/quarto/_quarto.yml
@@ -8,6 +8,7 @@ website:
       - href: index.qmd
         text: Home
       - editors.qmd
+      - ed-reviews.qmd
       - reviews.qmd
 
 format:

diff --git a/quarto/ed-reviews.qmd b/quarto/ed-reviews.qmd
@@ -0,0 +1,59 @@
+---
+title: "Editor Reviews"
+format: 
+  html:
+    fig-width: 8
+    fig-height: 4
+    code-fold: false
+---
+
+```{r get-ed-dat, echo = FALSE, message = FALSE}
+#| cache: true
+library (dashboard)
+library (gt)
+library (ggplot2)
+library (tidyr)
+library (dplyr)
+library (viridis)
+ed_dat <- editor_status (quiet = TRUE)
+ed_reviews <- ed_dat$reviews
+```
+
+## Editor Reviews
+
+This panel provides data on reviews handled by each editor. Data are shown for
+current editors only.
+
+```{r ed-rev, echo = FALSE, message = FALSE, results = 'asis'}
+u <- "https://github.com/ropensci/software-review/issues/"
+for (i in seq_along (ed_reviews)) {
+    this_ed <- names (ed_reviews) [i]
+    cat (paste0 (
+        "## [",
+        this_ed,
+        "](https://github.com/",
+        this_ed,
+        ")\n\n"
+    ))
+    cat (paste0 ("Total Reviews: ", nrow (ed_reviews [[i]]), "\n\n"))
+    this_tab <- ed_reviews [[i]]
+    this_tab$number <- paste0 (
+        "<a href=",
+        u,
+        this_tab$number,
+        ">",
+        this_tab$number,
+        "</a>"
+    )
+    this_tab$number <- lapply (this_tab$number, gt::html)
+    tab <- gt::gt (this_tab) |>
+        gt::tab_header (paste0 (
+            "Reviews for [@",
+            this_ed,
+            "](https://github.com/",
+            this_ed,
+            ")"
+        ))
+    print (tab)
+}
+```