Fill GitHub's author names if empty.

R/EngineGraphQLGitHub.R

@@ -167,6 +167,7 @@ EngineGraphQLGitHub <- R6::R6Class(
             .before = api_url
           )
       }
+      commits_table <- private$fill_empty_authors(commits_table)
       return(commits_table)
     },
 
@@ -539,6 +540,15 @@ EngineGraphQLGitHub <- R6::R6Class(
         "files" = files
       )
       return(result)
+    },
+
+    fill_empty_authors = function(commits_table) {
+      commits_table <- commits_table |>
+        dplyr::rowwise() |>
+        dplyr::mutate(
+          author_name = ifelse(is.na(author_name) & is_name(author), author, author_name),
+          author_login = ifelse(is.na(author_login) & is_login(author), author, author_login)
+        )
     }
   )
 )

R/utils.R

@@ -63,3 +63,13 @@ standardize_dates <- function(dates) {
 url_encode <- function(url) {
   URLencode(url, reserved = TRUE)
 }
+
+#' @noRd
+is_name <- function(author) {
+  length(stringr::str_split_1(author, " ")) > 1
+}
+
+#' @noRd
+is_login <- function(author) {
+  length(stringr::str_split_1(author, " ")) == 1 && identical(author, tolower(author))
+}