R语言对多个文件内容求和

• R语言对多个文件内容求和

---

sumtree<-function(drtr){
# 设置起始值为0
sum<-0
# 第一个参数的作用是列出该目录下所有文件的名称
# 第二个参数的作用是 是否显示目录树
  fls<-dir(drtr,recursive=TRUE)
# 依次读取文件/目录
for(f in fls){
# 拼接路径名
    f<-file.path(drtr,f)
# 判断是否为目录
if(!file.info(f)$isdir){
# 若不是目录，进行读取文件
sum<-sum+sum(scan(f,sep=",",quiet =TRUE))
    }
  }
return(sum)
}