Avoid reaching rate limit

[maurolepore]

Provide code to install each package independently with some delay. See how to do that here: https://adv-r.hadley.nz/function-operators.html. The main idea is this:

delay_by <- function(f, amount) {
  force(f)
  force(amount)

  function(...) {
    Sys.sleep(amount)
    f(...)
  }
}

delay_by(runif, 0.5)(10)

sufix <- c(
  "abundance", "base", "ctfs", "data", "demography", "habitat", "map", "tool"
)
forestgeo_package <- paste0("forestgeo/", paste0("fgeo/", sufix))
walk(
  forestgeo_package, 
  delay_by(devtools::install_github, 1), 
  upgrade = "never"
)

I tried this but the rate limit is still reached. Maybe it's not a rate but a total size.