手动API速率限制

我正在尝试为 rgithub 包裹到目前为止,我有:

library(rgithub)

pull <- function(i){
 commits <- get.pull.request.commits(owner = owner, repo = repo, id = 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.pull.request.commits(owner = owner, repo = repo, id = i, ctx = get.github.context(), per_page=100, page = n)
}, default = NULL)
else 
   return(commits)
}

list <- c(500, 501, 502)

pull_lists <- lapply(list, pull)

意图是如果 x-ratelimit-remaining 变量低于某个阈值时,脚本应等待 x-ratelimit-reset 已通过,然后继续脚本。然而,我不确定这是否是 if else 设置我在这里的位置。

该函数运行良好,但我对它是否确实执行了速率限制或是否跳过了这些步骤有些怀疑。因此,我问:a)我怎样才能知道它是否真的限制了利率,b)如果没有,我怎样才能重写它,使它真的限制利率?是否会 while 条件/循环可能更好?