GitHubAPI プロジェクト数の取得

前提・実現したいこと

スター数500以上のリポジトリ毎にプロジェクト数を取得

発生している問題・エラーメッセージ

取得の仕方が分からない

該当のソースコード

R
1get.trending.repositories2016 <- function(timeline.dates, auth.id, auth.pwd){
2
3base_url <- 'https://api.github.com/search/repositories?'
4  api_id_param <- paste0('client_id=', auth.id) 
5  api_pwd_param <- paste0('client_secret=', auth.pwd)
6  per_page <- 100
7  top.repos.df <- data.frame()
8  pb <- txtProgressBar(min = 0, max = length(timeline.dates), style = 3)
9
10  for (i in seq(1,length(timeline.dates), by=2)){
11    start_date <- timeline.dates[i]
12    end_date <- timeline.dates[i+1]
13    query <- paste0('q=created:%22', start_date, '%20..%20',
14                    end_date, '%22%20stars:%3E=500')
15    url <- paste0(base_url, query, arg_sep, api_id_param,arg_sep,api_pwd_param)
16    response <- fromJSON(url)
17    total_repos <- min(response$total_count, 500)
18    count <- ceiling(total_repos / per_page)
19
20    for (p in 1:count){
21      page_number <- paste0('page=', p)
22      per_page_count <- paste0('per_page=', per_page)
23      page_url <- paste0(url, arg_sep, page_number, arg_sep, per_page_count)
24      response <- fromJSON(page_url)
25      items <- response$items
26   #  items <- response
27     # print(colNmes(items))
28  #  items <- items[, c('id', 'open_issues')]
29   #   top.repos.df <- rbind(top.repos.df, items)
30     top.repos.df <- items
31    }
32    setTxtProgressBar(pb, i+1)
33  }
34  return (top.repos.df)
35}
36
37dates <- c('2018-01-01', '2018-03-31')
38repos2016 <- get.trending.repositories2016(timeline.dates=dates, 
39
40                                            auth.id=auth.id, 
41
42                                            auth.pwd=auth.pwd)