# NOT RUN {
# Create a test directory
dir.create("parent")
dir.create("parent/child")
# Create some rmds to find
# An empty vector to collect file names
nm_vec <- character()
# create numbered file names
for (num in 1:6) {
nm <- paste0(num, "-test.Rmd")
nm_vec <- append(nm_vec, nm)
}
# Create some files in parent & child directories
file.create(paste0("parent/", nm_vec[1:3]))
file.create(paste0("parent/child/", nm_vec[4:6]))
# Return all Rmd files
retrieve_rmds("parent")
# tidy up environment
unlink(c("parent", "child"), recursive = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab