Displaying 1 result from an estimated 1 matches for "goodfil".
Did you mean:
goodfit
2019 Dec 20
0
list.files(., pattern=<>, recursive = TRUE, include.dirs = TRUE)
...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 files(/+dirs)
list.files(td, recursive = TRUE)
## [1] "bad/bad/badfil" "bad/bad/goodfil" "bad/good/badfil"
## [4] "bad/good/goodfil"...