r - twitteR を使用して R で友人/ID のレート制限を達成する - おそらくループの問題?

Question

Pablo Barbera のコード ( https://github.com/pablobarbera/workshop/blob/master/code/02_analysis_twitter_nyu.R ) の修正版を使用して、個人とフォローしている Twitter フォロワー ネットワークをグラフ化しています。レート制限は、フレンド/ID の 15 コール/15 分です。ただし、私のコードは常にそれを超えています。

レート制限の問題を解決する方法についてのヒントをいただければ幸いです。問題はwhileループ内にあると思われます（以下にコピー）

while (length(ir_pol.users) > length(follow.list)) {
   user <- ir_pol.users[ir_pol.users %in% names(follow.list) == FALSE], 1)
   user <- getUser(user)
   user.n <- user$screenName
   following <- user$getFriends()
   friends <- as.character(lapply(following, function(x) x$getScreenName()))
   follow.list[[user.n]] <- friends
   descriptions <- as.character(lapply(following, function(x) x$getDescription()))
   ir_pol <- extract.irishpolitics(descriptions)
   new.users <- lapply(following[ir_pol], function(x) x$getScreenName())
   new.users <- as.character(new.users)
   ir_pol.users <- unique(c(ir_pol.users, new.users))
   limit <- getCurRateLimitInfo()[47, 3]
   while (limit == "0") {
      Sys.sleep(901)
      limit <- getCurRateLimitInfo()[47, 3]
      }

   print(ir_pol.users)
}