An Example for User Metrics

Official API documentation http://dev.bitly.com/user_metrics.html.

Method below returns my most-clicked Bit.ly links (ordered by number of clicks) in a given time period.

library(urlshorteneR)

## In order to use google or bitly functions, you first 
## need to authenticate. For that execute '?googl_auth' in R console.

# print(getwd())
# 
# btoken_path <- file.path("..", "tests", "testthat", "bitly_token.rds")
# gtoken_path <- file.path("..", "tests", "testthat", "googl_token.rds")
 
if (interactive()) {

# bitly_token <- readRDS("../tests/testthat/bitly_token.rds")
# googl_token <- readRDS("../tests/testthat/googl_token.rds")

# You should register a new pair of keys yourself. DO NOT USE MINE as this may not work. 
# bitly_token <- bitly_auth(key = "be03aead58f23bc1aee6e1d7b7a1d99d62f0ede8", secret = "b7e4abaf8b26ec4daa92b1e64502736f5cd78899")

bitly_UserMetricsPopularLinks(unit = "month", units = -1, limit = 100)
}

An Example for Link Metrics

Official API documentation http://dev.bitly.com/link_metrics.html.

This returns users, who have encoded http://bit.ly/DPetrov link sorted by the number of clicks on each encoding user’s link.

if (interactive()) {

bitly_LinksMetricsEncodersByCount(link = "http://bit.ly/DPetrov", my_network = "false", limit = 100)
}

An Example for User Info/History

Official API documentation http://dev.bitly.com/user_info.html.

The first method returns an information about myself, whereas the second one returns a list of tracking domains I have configured (I have none).

if (interactive()) {

bitly_UserInfo()

bitly_UserTrackingDomains()
}

An Example for Domains

Official API documentation http://dev.bitly.com/domains.html.

This will query whether a given domain is a valid Bit.ly PRO domain (nyti.ms is).

if (interactive()) {

bitly_IsProDomain(domain = "nyti.ms")
}

An Example with a dataframe and bulk shortening

if (interactive()) {
  df <- data.frame(pubDate = rep("2016-02-10", 4),
                   link = c(NA,"http://www.opencoesione.gov.it/progetti/1misepac01_000443/",
                            "http://www.opencoesione.gov.it/progetti/1misepac01_000031/", ""),
                   stringsAsFactors = FALSE)
  df
  
  fin = NULL
  for (p in 1:length(df$link)) {
    fin[[p]] <- bitly_LinksShorten(longUrl = df$link[p])
  }
}

BEWARE: This will proceed only with the two real links, not with the NA, NULL or an empty string. Therefore, you will recieve X number of messages describing the error. These, however, will not stop the flow of the code (i.e. are not errors).

What has (not) been implemented for Bit.ly:

Based on http://dev.bitly.com/

• http://dev.bitly.com/nsq.html
  • None endpoints are implemented here, logically. This is only for the NSQ platform.
• http://dev.bitly.com/organization_metrics.html
  • None endpoints are implemented here, because all are premium. Contact me if you need it.
• Lastly, sometimes, only a small subset of input paramaters has been implemented. Again contact me and I will consider a change.

What has been implemented for Goo.gl:

I believe everything. If not, let you me know.