Nothing
library("R.utils")
assertEqual <- function(a, b) {
a <- gsub("\\", "/", a, fixed=TRUE)
b <- gsub("\\", "/", b, fixed=TRUE)
if (a != b) {
throw("The two paths/pathnames differ: ", sQuote(a), " != ", sQuote(b))
}
} # assertEqual()
path <- file.path("foo", "bar", "..", "name")
assertEqual(path, "foo/bar/../name")
path <- filePath("foo", "bar", "..", "name")
assertEqual(path, "foo/name")
path <- filePath("foo/bar/../name")
assertEqual(path, "foo/name")
path <- filePath(".")
assertEqual(path, ".")
path <- filePath("..")
assertEqual(path, "..")
path <- filePath("../..")
assertEqual(path, "../..")
path <- filePath("./.")
assertEqual(path, ".")
path <- filePath(".", ".")
assertEqual(path, ".")
path <- filePath(".", "..")
assertEqual(path, "..")
path <- filePath("C:/foo/..")
assertEqual(path, "C:/")
path <- filePath("/tmp/../../..")
assertEqual(path, "/../..")
path <- filePath("C:/../../..")
assertEqual(path, "C:/../../..")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.