if (FALSE) {
bitly_bearerToken("access token")
bitly_shorten_link(url = "http://www.seznam.cz/")
bitly_shorten_link(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_shorten_link(long_url = manyUrls[[u]], showRequestURL = TRUE))
}
}
Run the code above in your browser using DataLab