if (interactive()) {
d1 <- file.path(tempdir(), "folder1")
d2 <- file.path(d1, "folder2")
d3 <- file.path(tempdir(), "new_folder")
f1 <- file.path(d1, "file.one")
dir.create(d2, recursive = TRUE)
file.create(f1)
misc_recursive_copy(d1, d3)
}
Run the code above in your browser using DataLab