# NOT RUN {
bitly_token <- bitly_auth(key = "", secret = "")
bitly_LinksMetricsEncodersByCount("http://bit.ly/DPetrov", my_network = "false", limit = 100)
bitly_LinksMetricsEncodersByCount("http://bit.ly/DPetrov", my_network = "false", limit = 100,
expand_user = "true")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab