Add missing Famedly and Beeper users

index.Rmd

@@ -74,32 +74,31 @@ Please note that in the current PDF this is not yet hooked up to gitlab or check
 # TODO also check workplace thingy
 
 # Compile a list of who is who
-element_employee <- list()
-sct_employee <- c("ara4n","erikjohnston","richvdh","dbkr","uhoreg","anoadragon453","turt2live","KitsuneRal")
-famedly_employee <- list()
-beeper_employee <- list()
-users <- list()
-# Get orgs of users on github
-for (i in 1:nrow(filtered_issues)) {
-    user <- filtered_issues[i, ]$user[[1]]$login
-    if (user %in% users) {
-        next
-    }
-    orgs_raw <- gh(sprintf("GET /users/%s/orgs", user))
-    orgs <- as.data.frame(do.call(rbind, orgs_raw))
-
-    
-    if (!(user %in% sct_employee)) {
-        if ("vector-im" %in% orgs$login) {
-            element_employee[[length(element_employee) + 1]] <- user
-        } else if ("beeper" %in% orgs$login) {
-            beeper_employee[[length(beeper_employee) + 1]] <- user
-        } else if ("Famedly" %in% orgs$login) {
-            famedly_employee[[length(famedly_employee) + 1]] <- user
-        }
-    }
-    users[[length(users) + 1]] <- user
-
+if (!exists("element_employee") || !exists("famedly_employee") || !exists("beeper_employee")) {
+  element_employee <- list()
+  sct_employee <- c("ara4n","erikjohnston","richvdh","dbkr","uhoreg","anoadragon453","turt2live","KitsuneRal")
+  famedly_employee <- list("deepbluev7", "Sorunome", "MTRNord")
+  beeper_employee <- list("Fizzadar")
+  users <- list()
+  # Get orgs of users on github
+  for (i in 1:nrow(filtered_issues)) {
+      user <- filtered_issues[i, ]$user[[1]]$login
+      if ((user %in% users) || (user %in% sct_employee)) {
+          next
+      }
+      orgs_raw <- gh(sprintf("GET /users/%s/orgs", user))
+      orgs <- as.data.frame(do.call(rbind, orgs_raw))
+  
+      
+      if ("vector-im" %in% orgs$login) {
+          element_employee[[length(element_employee) + 1]] <- user
+      } else if ("beeper" %in% orgs$login) {
+          beeper_employee[[length(beeper_employee) + 1]] <- user
+      } else if ("Famedly" %in% orgs$login) {
+          famedly_employee[[length(famedly_employee) + 1]] <- user
+      }
+      users[[length(users) + 1]] <- user
+  }
 }
 ```
 
@@ -247,4 +246,3 @@ ggplot(data, aes(x = "", y = prop, fill = group)) +
     ) +
     scale_fill_brewer(palette = "Set1")
 ```
-

index.md

@@ -70,22 +70,23 @@ that are not detectable.
 # thingy
 
 # Compile a list of who is who
-element_employee <- list()
-sct_employee <- c("ara4n", "erikjohnston", "richvdh", "dbkr",
-    "uhoreg", "anoadragon453", "turt2live", "KitsuneRal")
-famedly_employee <- list()
-beeper_employee <- list()
-users <- list()
-# Get orgs of users on github
-for (i in 1:nrow(filtered_issues)) {
-    user <- filtered_issues[i, ]$user[[1]]$login
-    if (user %in% users) {
-        next
-    }
-    orgs_raw <- gh(sprintf("GET /users/%s/orgs", user))
-    orgs <- as.data.frame(do.call(rbind, orgs_raw))
+if (!exists("element_employee") || !exists("famedly_employee") ||
+    !exists("beeper_employee")) {
+    element_employee <- list()
+    sct_employee <- c("ara4n", "erikjohnston", "richvdh", "dbkr",
+        "uhoreg", "anoadragon453", "turt2live", "KitsuneRal")
+    famedly_employee <- list("deepbluev7", "Sorunome", "MTRNord")
+    beeper_employee <- list("Fizzadar")
+    users <- list()
+    # Get orgs of users on github
+    for (i in 1:nrow(filtered_issues)) {
+        user <- filtered_issues[i, ]$user[[1]]$login
+        if ((user %in% users) || (user %in% sct_employee)) {
+            next
+        }
+        orgs_raw <- gh(sprintf("GET /users/%s/orgs", user))
+        orgs <- as.data.frame(do.call(rbind, orgs_raw))
 
-    if (!(user %in% sct_employee)) {
         if ("vector-im" %in% orgs$login) {
             element_employee[[length(element_employee) + 1]] <- user
         } else if ("beeper" %in% orgs$login) {
@@ -93,9 +94,8 @@ for (i in 1:nrow(filtered_issues)) {
         } else if ("Famedly" %in% orgs$login) {
             famedly_employee[[length(famedly_employee) + 1]] <- user
         }
+        users[[length(users) + 1]] <- user
     }
-    users[[length(users) + 1]] <- user
-
 }
 ```