I would recommend putting this in a while loop.
setwd("path_you're_interested_in")
old_files <- character(0)
while(TRUE){
new_files <- setdiff(list.files(pattern = "\\.csv$"), old_files)
sapply(new_files, function(x) {
})
old_files = c(old_files, new_files)
Sys.sleep(30)
}
source
share