Oliver's open issues

oliver.md

# install_github("gaborcsardi/gh")
library(gh)
suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(purrr))

repos <- gh("GET /users/ironholds/repos", .limit = Inf)
repo_names <- repos %>% 
  map_chr("name")

issue_list <- repo_names %>% 
  map(~ gh(repo = .x, endpoint = "/repos/ironholds/:repo/issues", .limit = Inf))

issue_list %>% 
{
  data_frame(repo = repo_names,
             n_open = map_int(., length))
} %>% 
  arrange(desc(n_open)) %>% 
  print(n = length(repo_names))

## Source: local data frame [48 x 2]
## 
##              repo n_open
##             (chr)  (int)
## 1  passbypromised      7
## 2   distributions      5
## 3          driver      5
## 4        practice      3
## 5      rgeolocate      3
## 6         mwutils      2
## 7        urltools      2
## 8          primes      1
## 9         protein      1
## 10           rope      1
## 11       webreadr      1
## 12      WikidataR      1
## 13      WikipediR      1
## 14            wmf      1
## 15           arin      0
## 16   averageimage      0
## 17         batman      0
## 18        billund      0
## 19        cranlog      0
## 20       cranular      0
## 21         crater      0
## 22           dlib      0
## 23           espy      0
## 24           exif      0
## 25        favnums      0
## 26           ffvc      0
## 27         flickr      0
## 28       headbash      0
## 29   humaniformat      0
## 30  irrefrangible      0
## 31          jammr      0
## 32          lsaas      0
## 33           lucr      0
## 34       olctools      0
## 35          olivr      0
## 36      pageviews      0
## 37   reconstructr      0
## 38            rfc      0
## 39           rLTP      0
## 40           Rtts      0
## 41          rwars      0
## 42        sharder      0
## 43    talk-parser      0
## 44     threewords      0
## 45        Website      0
## 46         whoapi      0
## 47 WikiTalkParser      0
## 48           zebr      0

---

title: "oliver.R" author: "jenny" date: "Fri Nov 27 16:54:04 2015"

oliver.R

#' ---
#' output:
#'   html_document:
#'     keep_md: TRUE
#' ---

# install_github("gaborcsardi/gh")
library(gh)
suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(purrr))

repos <- gh("GET /users/ironholds/repos", .limit = Inf)
repo_names <- repos %>% 
  map_chr("name")

issue_list <- repo_names %>% 
  map(~ gh(repo = .x, endpoint = "/repos/ironholds/:repo/issues", .limit = Inf))

issue_list %>% 
{
  data_frame(repo = repo_names,
             n_open = map_int(., length))
} %>% 
  arrange(desc(n_open)) %>% 
  print(n = length(repo_names))