fix editors list to include members from ed-stats only

ropensci-review-tools · Mar 20, 2024 · 55907d9 · 55907d9
1 parent 6a85b7c
commit 55907d9
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 6 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.11.003
+Version: 0.1.0
 Authors@R: 
   person(given = "First",
          family = "Last",

diff --git a/R/editors.R b/R/editors.R
@@ -7,24 +7,22 @@
 editor_gh_data <- function (quiet = FALSE) {
 
     q <- gh_editors_team_qry (stats = FALSE)
-    stopifnot (nchar (q) == 267L)
     editors <- gh::gh_gql (query = q)
     editors <- editors$data$organization$team$members$nodes
-    stopifnot (length (editors) > 0L)
     editors <- vapply (editors, function (i) i$login, character (1L))
-    stopifnot (length (editors) > 0L)
 
     q <- gh_editors_team_qry (stats = TRUE)
     editors_stats <- gh::gh_gql (query = q)
     editors_stats <- editors_stats$data$organization$team$members$nodes
     editors_stats <-
         vapply (editors_stats, function (i) i$login, character (1L))
-    stopifnot (length (editors_stats) > 0L)
 
     editors <- data.frame (
         login = editors,
         stats = editors %in% editors_stats
     )
+    editors_stats <- editors_stats [which (!editors_stats %in% editors$login)]
+    editors <- rbind (editors, data.frame (login = editors_stats, stats = TRUE))
 
     has_next_page <- TRUE
     end_cursor <- NULL

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.11.003",
+  "version": "0.1.0",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",