if (FALSE) {
(x <- folder("DELETE.ME"))
which(dir() == "DELETE.ME")
delete("DELETE.ME")
which(dir() == "DELETE.ME")
folder("the/next/big/thing", "hello world", "now/is/the/time")
folder(cat, dog)
lapply(c("cat", "dog"), delete)
}
Run the code above in your browser using DataLab