Pass in a vector of URLs (ostensibly "short" URLs) and receive a data frame of the original URLs and expanded URLs

expand_urls(
  urls_to_expand,
  warn = TRUE,
  agent = "longurl-r-package",
  seconds = 5,
  .progress = FALSE
)

Arguments

urls_to_expand

character vector of URLs

warn

show any warnings (API or otherwise) as messages

agent

user agent to use (some sites switchup content based on user agents). Defaults to "`longurl-r-package`".

seconds

number of seconds to wait for a response until giving up. Cannot be <1ms.

.progress

kept for legacy functionality but ignored

Value

a tibble/data frame with the orignial URLs in `orig_url`, expanded URLs in `expanded_url` and the HTTP `status_code` of the expanded URL. Completely invalid URLs result in a `NA` value for `expanded_url` & `status_code`.

Examples

test_urls <- c("http://t.co/D4C7aWYIiA",
               "1.usa.gov/1J6GNoW",
               "ift.tt/1L2Llfr")
big_urls <- expand_urls(test_urls)
head(big_urls)