\dontrun{
path <- c(getwd(), R.home())
getParentDirectory(path = path)
getParentDirectory(path = path, up = 2)
getParentDirectory(path = path, up = 3)
getParentDirectory(path = path, up = c(1,4))
path <- "c:/Windows"
getParentDirectory(path = path, up = 2)
try(getParentDirectory(path = path, up = 3))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.