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")Run the code above in your browser using DataLab