How do I run this code in R every five minutes?

Question

Here is my code

file_names <- dir()
tbl <- do.call(rbind,lapply(file_names,read.csv))

I want this to run every five minutes. I\'m runni