expand_urls {longurl}

Expand a vector of (short) URLs using

Description

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

Usage

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)