xxxxxxxxxx
if (interactive()) {
bitly_retrieve_group(ui$default_group_guid)
bitly_retrieve_groups()
}
xxxxxxxxxx
## In order to use bitly functions, you first need to authenticate.
## For that execute 'bitly_auth()' in R console.
xxxxxxxxxx
if (interactive()) {
bitly_update_user(name = "John Malc", showRequestURL = TRUE)
}
xxxxxxxxxx
if(interactive()) {
opts_knit$set(root.dir = "~/Documents/Documents2/R-package-urlshortener")
bitly_token <- readRDS("tests/bitly_local_token.rds")
# You can register a new pair of keys yourself - but you can also use mine - an option which is also by default
# bitly_token <- bitly_auth(key = "be03aead58f23bc1aee6e1d7b7a1d99d62f0ede8", secret = "f9c6a3b18968e991e35f466e90c7d883cc176073")
# bitly_token <- bitly_auth()
ui <- bitly_user_info(showRequestURL = TRUE)
is_bitly_user_premium_holder()
}