edit n.times in get_timeline

ropensci-archive · Oct 15, 2018 · 274b335 · 274b335
1 parent ecbc94e
commit 274b335
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/timeline.R b/R/timeline.R
@@ -141,6 +141,10 @@ get_timeline_call <- function(user,
   if (check) {
     rl <- rate_limit(token, query)
     n.times <- rl[["remaining"]]
+    if (length(n.times) == 0 || !is.numeric(n.times)) {
+      n.times <- 0
+    }
+    n.times <- n.times[1]
     if (n %/% 200 < n.times) {
       n.times <- ceiling(n / 200L)
     }