if (FALSE) {
bitly_update_bitlink(bitlink = "bit.ly/DPetrov", title = "novy titulek")
## hash is the one which is only returned. Dont use
bitly_update_bitlink(bitlink = "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_update_bitlink(bitlink = manyHashes[[u]],
## title = stri_rand_strings(1, 8, pattern = "[A-Za-z0-9]")))
## }
}
Run the code above in your browser using DataLab