if (FALSE) {
bitly_expand_link(bitlink_id = "bit.ly/DPetrov")
bitly_expand_link(bitlink_id = "on.natgeo.com/1bEVhwE")
## manyHashes <- list("bit.ly/DPetrov", "bit.ly/1QU8CFm", "bit.ly/1R1LPSE", "bit.ly/1LNqqva")
## for (u in 1:length(manyHashes)) {
## print(bitly_expand_link(bitlink_id = manyHashes[[u]], showRequestURL = TRUE))
## }
}
Run the code above in your browser using DataLab