Прокручивание списка файлов для назначения нового каталога

Question

Я пытаюсь перебрать список файлов в каталоге, чтобы скопировать и переместить эти файлы в другой каталог, но я не могу заставить его работать. Только первый файл в списке копируется и перемещается в новый каталог.

names <- list.files("K:/Project/TSR/GFI")

moveGFfiles <- function(from, to) {
        todir <- dirname(to)
        if (!isTRUE(file.info(todir)$isdir)) dir.create(todir, recursive=TRUE)
        file.copy(from = from,  to = to, overwrite = TRUE, recursive = FALSE, copy.mode = TRUE)
}


for (i in names) {
        from <- paste("ROUTE/etc/etc/", i, sep = "")
        to <- paste("ROUTE/etc/etc/", i, sep = "")
        moveGFfiles(from, to)
    }