files <- list.files(path)
most_recent_file_path <- sort(files, decreasing = TRUE)[1]
most_recent_file <- read.csv(most_recent_file_path)