R/aoe2_leaderboard_all.r

In johannes4998/aoe2dotnetapi: This package provides an interface to the aoe2.net website. It takes all api-calls and makes them a function. It also adds the possiblity to search for _all where the api restricts the number of downloads

#' aoe2_leaderboard_all
#'
#' This function gives you a list object with the current leaderboard standing.
#' The list contains $total, $leaderboard_id, $start, $count and most important $leaderboard
#'
#' More Information about aoe2.net api at https://aoe2.net/#api
#' @param game Default is aoe2de since the api is mostly used for that.
#' @param leaderboard_id Default is 3 for 1v1 Random Map, 4 is Team Random Map.
#' @keywords aoe2_leaderboard_all
#' @export
#' @examples
#' #Top5
#' aoe2_leaderboard_all()
#'

aoe2_leaderboard_all <- function(game="aoe2de", leaderboard_id=3) {

  start=1
  count=10000
  data = NULL
  leaderboard_id = leaderboard_id
  repeat{

    data_part =  aoe2dotnetapi::aoe2_leaderboard(start = start, count = count, game="aoe2de", leaderboard_id=leaderboard_id)$leaderboard
    data = rbind(data, data_part)
    start = start + count

    if(nrow(data_part) < count){
      print(paste(nrow(data), "Players downloaded. Download finished."))
      return(data)
      break
    }

    print(paste(nrow(data), "Players downloaded. At least one more round."))
  }

}