This script can be used to automate moving/archiving files

archive_file.R

# List all files in directory which contains the file to be archived
files <- list.files("/path/to/file/") 

# A distinguishing substring that allows you to identify the file to be archived
substring <- "some_substring"

# Select the file based on distinguishing substring
old_file <- files[which(stringr::str_detect(files, substring))]

# Move report to archive folder
file.rename(from = paste0("/path/to/file/", old_file),
            to = paste0("/path/to/archive/folder/", old_report))