url_absolute(c(".", "..", "/", "/x"), "http://hadley.nz/a/b/c/d")
url_relative("http://hadley.nz/a/c", "http://hadley.nz")
url_relative("http://hadley.nz/a/c", "http://hadley.nz/")
url_relative("http://hadley.nz/a/c", "http://hadley.nz/a/b")
url_relative("http://hadley.nz/a/c", "http://hadley.nz/a/b/")
Run the code above in your browser using DataLab