Displaying 1 result from an estimated 1 matches for "dpths".
Did you mean:
depths
2019 Dec 20
0
list.files(., pattern=<>, recursive = TRUE, include.dirs = TRUE)
...good to do if there's no appetite for doing anything
higher on the list.
I am happy to submit patches (as wishlist items , except for *3*) for any
of the above if there is interest.
Thoughts?
~G
td = file.path(tempdir(), "listfilestst")
dns = c("good", "bad" )
dpths = file.path(td, as.vector(outer(dns, dns, paste, sep =
.Platform$file.sep)))
invisible(lapply(dpths, dir.create, recursive = TRUE))
fpths = as.vector(outer(dpths, c("goodfil", "badfil"), file.path))
invisible(sapply(fpths, function(pth) cat(" ", file = pth)))
## all f...