inst/tinytest/test_longurl.R

library(longurl)

c(
  "http://t.co/D4C7aWYIiA",
  "1.usa.gov/1J6GNoW",
  "ift.tt/1L2Llfr",
  "bit.ly/1GPr5w5",
  "http://l.dds.ec/1da152x",
  "http://l.rud.is/seven"
) -> test_urls

res <- expand_urls(test_urls)

expect_true(inherits(res, "data.frame"))

Try the longurl package in your browser

Any scripts or data that you put into this service are public.

longurl documentation built on July 1, 2020, 10:26 p.m.