What can be the problem when "eem_import_dir" is working properly?

Question

eem_import_dir is supposed to "Reads Rdata and RDa files with one eemlist each. The eemlists are combined into one and returned." However, in my case, only one file is read at the time, and thus no combination is happening...

I don't expect any error in the function which is part of the staRdom package. I guess my limited R knowledge limits my understanding of the function and what could be wrong.

All files are the same class (eemlist) and in the same format. Tried changing the folder, filenames, etc. Can someone please help me understand the requirements of the function? Why is only one file read at the time and not all combined?

function (dir) 
{
  eem_files <- dir(dir, pattern = ".RData$|.RDa$", ignore.case = TRUE) %>% 
    paste0(dir, "/", .)
  for (file in eem_files) {
    file <- load(file)
    if (get(file) %>% class() == "eemlist") {
      if (exists("eem_list")) 
        eem_list <- eem_bind(eem_list, get(file))
      else eem_list <- get(file)
    }
    else {
      warning(paste0(file, " is no object of class eemlist!"))
    }
    NULL
  }
  eem_list
}