增加R

时间:2015-10-14 18:15:35

标签: r github github-api

增加与R中github api相关的xrate限制,我在R中使用rgithub包来从github中提取pull请求。我已注册该应用程序并生成了客户端ID。在R中使用xrate limit的代码,ctx包含详细信息clientids。为了增加xrate限制,我正在运行带有详细信息的curl命令。这是提高速率限制的正确方法吗?请以任何其他方式建议

      ctx = interactive.login("clientid", "client_secret_id")

      owner = "a"
      repo = "repo_name"

      comments <- function(i){
      commits <- get.issue.comments(owner = owner, repo = repo, number = i, 
      ctx = get.github.context(), per_page=100)
      links <- digest_header_links(commits)
      number_of_pages <- links[2,]$page
      if (number_of_pages != 0)
     try_default(for (n in 1:number_of_pages){
       if (as.integer(commits$headers$`x-ratelimit-remaining`) < 5)
        Sys.sleep(as.integer(commits$headers$`x-ratelimit-reset`)
        - as.POSIXct(Sys.time()) %>% as.integer())
      else
    get.issue.comments(owner = owner, repo = repo, number = i, 
    ctx =get.github.context(), per_page=100, page = n)
       }, default = NULL)
     else 
    return(commits)
    }
   list <- c(issueid) # a issue id in github
   comments_lists <- lapply(list, comments)
    curl -i 'https://api.github.com/users/whatever?client_id=&client_secret=yyyy'

0 个答案:

没有答案