快速读取R中的一批图像

Question

我正在尝试使用以下代码将大约20,000张图像读入R中：

  fill = function(i){
        temp = readImage(as.character(train[i,1]))  
        temp = resize(channel(temp,"grey"),w = 32,h = 32)
  }
  train_im = lapply(1:nrow(train),function(x) fill(x))

这段代码需要大约480秒才能运行，而python中的等效代码大约需要16秒。如何在R中改进文件读入代码的运行时间？