file.copy.with.a.vector.of.names.r

library(tidyverse)
library(readxl)
Big_Data_Management_Student_List_2018 = read_excel("D:/tmp.files/[[Big Data Management]] Student List 2018.xlsx")[1:44, c("First Name", "Last Name", "CWID")]
vec.new.file.name = Big_Data_Management_Student_List_2018 %>% transmute(new.file.name = paste0(`Last Name`, ", ", `First Name`, " (", CWID, ")")) %>% unlist %>% unname
current.folder = "D:/[[Big Data Management]] 2018/HW1"
original.file.name = "HW1 Gradesheet 2018.xlsx"
new.folder = "D:/[[Big Data Management]] 2018/HW1 Gradesheet 2018"
for (i in 1:length(vec.new.file.name)){
    file.copy(
        overwrite = T
        , paste0(current.folder,"/",original.file.name)
        , paste0(new.folder,"/",original.file.name,") ",vec.new.file.name[i],".xlsx")
    )
}