library(stringr)

#copy files from train child dirs to train root dir
setwd("C:/Users/My-PC/Desktop/stage2_test_final")

cb <- list.files(recursive = TRUE)
ca <- grep("images",cb,value=TRUE)
curdir <- getwd()

for (i in 1:length(ca))
{
  seldir <- paste(curdir, ca[i], sep="/")
  file.copy(from=seldir, to=curdir)
}