# NOT RUN {
### Obtain battle tags and MMR of players in a particular ladder.
#Get full ladder data
try({
data <- get_ladder_data(ladder_id = 289444, host_region = "us")
# Player ratings
ratings <- data$team$rating
# Get battle tags using list indexing with sapply
tags <- sapply(data$team$member, function(x) x$character_link$battle_tag)
})
# }
Run the code above in your browser using DataLab