# NOT RUN {
write.csv(mtcars, file.path(tempdir(), "mtcars.csv"))
for (i in 0:9) {
write.csv(iris, file.path(tempdir(), paste0("iris", i, ".csv")))
}
search_files(what = "Mazda", path = tempdir(), pattern = "^.*\\.csv$")
search_files(what = "[Ss]etosa", path = tempdir(), pattern = "^.*\\.csv$")
x <- search_files(path = tempdir(),
pattern = "^.*\\.csv$",
exclude = "[2-9]\\.csv$",
what = "[Ss]etosa")
summary(x)
summary(x, type = "what")
summary(x, type = "matches")
try(search_files(what = "ABC", path = tempdir(), pattern = "^.*\\.csv$"))
# }
Run the code above in your browser using DataLab