# NOT RUN {
bitly_token <- bitly_auth(key = "be03aead58f23bc1aee6e1d7b7a1d99d62f0ede8",
secret = "b7e4abaf8b26ec4daa92b1e64502736f5cd78899")
bitly_LinksLookup(url = "http://www.seznam.cz/")
bitly_LinksLookup(url = "http://www.seznam.cz/", showRequestURL = TRUE)
manyUrls <- list("http://www.seznam.cz/", "http://www.seznamasdas.cz/",
"http://www.seznam.cz/asadasd", "http://www.seznam.cz/adqwrewtregt")
for (u in 1:length(manyUrls)) {
print(bitly_LinksLookup(url = manyUrls[[u]], showRequestURL = TRUE))
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab