Gather and count all your merged pull requests

merged_prs.R

library(gh)
library(tidyverse)
library(jsonlite)

gh("/search/issues?q=author:tylurp+type:pr+is:merged") %>% 
  toJSON() %>% 
  fromJSON() %>% 
  .$items %>% 
  .$pull_request %>% 
  .$url %>% 
  map_chr(~ str_remove(., ".*repos/")) %>% 
  map_chr(~ str_remove(., "/pulls.*")) %>% 
  as_tibble() %>% 
  count(value, sort = TRUE) %>% 
  set_names("repo", "prs_merged")

# Or wrap it into a function
merged_prs <- function(user) {
  endpoint_str <- glue::glue("/search/issues?q=author:{user}+type:pr+is:merged")
  gh(endpoint_str) %>% 
    toJSON() %>% 
    fromJSON() %>% 
    .$items %>% 
    .$pull_request %>% 
    .$url %>% 
    map_chr(~ str_remove(., ".*repos/")) %>% 
    map_chr(~ str_remove(., "/pulls.*")) %>% 
    as_tibble() %>% 
    count(value, sort = TRUE) %>% 
    set_names("repo", "prs_merged")
}

merged_prs("tylurp")