expand_urls function

Expand a vector of (short) URLs using

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

Returns

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)