From 75e92a3563d5b2b944e995fe10d807c1c7e73961 Mon Sep 17 00:00:00 2001
From: Jeroen Ooms <jeroenooms@gmail.com>
Date: Fri, 12 Jul 2024 14:48:29 +0200
Subject: [PATCH] Fiter bots from contributor list

---
 R/buildtools.R | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/R/buildtools.R b/R/buildtools.R
index 9afd32a..ff8f68a 100644
--- a/R/buildtools.R
+++ b/R/buildtools.R
@@ -545,16 +545,14 @@ list_contributions <- function(repo){
   contributors <- gh::gh(endpoint, .limit = 500, .progress = FALSE)
   logins <- tolower(vapply(contributors, function(x){x$login}, character(1)))
   counts <- vapply(contributors, function(x){x$contributions}, integer(1))
-  # Fix for bug in GitHub giving duplicate users
-  if(anyDuplicated(logins)){
-    dups <- duplicated(logins)
-    counts <- counts[!dups]
-    logins <- logins[!dups]
-  }
+
+  # Filter bots and duplicate users (github bug)
+  skip <- duplicated(logins) | grepl('[bot]', logins, fixed = TRUE)
+  counts <- counts[!skip]
+  logins <- logins[!skip]
   structure(as.list(counts), names = logins)
 }
 
-
 #' @export
 #' @rdname buildtools
 get_gitstats_base64 <- function(repo, pkgdir, url){