Rで行うGitHubAPI

前提・実現したいこと

Rを用いたGitHubAPIのデータの取得
projects数
all_issues数の取得

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

下記のコードではオープンIssueとidが取得できるのですがitemesを指定せず行った場合全ての要素が取得出来ると思い行った結果
projects数all_issues数は入っていませんでした。どこを変更すれば取得できるのでしょうか。

該当のソースコード

get.trending.repositories2016 <- function(timeline.dates, auth.id, auth.pwd){

base_url <- 'https://api.github.com/search/repositories?'
  api_id_param <- paste0('client_id=', auth.id) 
  api_pwd_param <- paste0('client_secret=', auth.pwd)
  per_page <- 100
  top.repos.df <- data.frame()
  pb <- txtProgressBar(min = 0, max = length(timeline.dates), style = 3)

  for (i in seq(1,length(timeline.dates), by=2)){
    start_date <- timeline.dates[i]
    end_date <- timeline.dates[i+1]
    query <- paste0('q=created:%22', start_date, '%20..%20',
                    end_date, '%22%20stars:%3E=500')
    url <- paste0(base_url, query, arg_sep, api_id_param,arg_sep,api_pwd_param)
    response <- fromJSON(url)
    total_repos <- min(response$total_count, 1000)
    count <- ceiling(total_repos / per_page)

    for (p in 1:count){
      page_number <- paste0('page=', p)
      per_page_count <- paste0('per_page=', per_page)
      page_url <- paste0(url, arg_sep, page_number, arg_sep, per_page_count)
      response <- fromJSON(page_url)
    items <- response$items
    
   items <- items[, c('id', 'open_issues')]
     top.repos.df <- rbind(top.repos.df, items)
    
    }
    setTxtProgressBar(pb, i+1)
  }
  return (top.repos.df)
}

dates <- c('2018-01-01', '2018-03-31')
repos2016 <- get.trending.repositories2016(timeline.dates=dates, 

                                            auth.id=auth.id, 

                                            auth.pwd=auth.pwd)