从数据框中的文件名列表中加载文件

Question

我创建了一个程序来从Excel工作表中进行计算。此工作表的数据来自一台机器。我已将机器设置为导出到给定文件夹。我希望R程序从该文件夹（数据）输入数据并运行代码，然后导出到不同的文件夹（结果）。我不希望代码运行以前完成的数据。我目前已经完成了这项工作：

library(gdata) 
library (XLConnect)

#################### data in ########################
setwd("c:/r/data/")

datain <- list.files(pattern="*.xlsx", full.names=T, recursive=FALSE)

##################### results in ###################

setwd("c:/r/result/")

results <- list.files(pattern="*.xlsx", full.names=T, recursive=FALSE)

################## set wd back to data #################################

setwd("c:/r/c/")

torun <- datain[!(datain %in% results)]

############################################################################

dataframtorun <- data.frame(torun)

dataframtorun 
           torun
1 ./343sdasd.xlsx
2    ./4ewwq.xlsx
3  ./TRICARB.xlsx

我想加载上面的三个文件并循环运行程序。