1、
rm(list = ls()) dir() for (i in list.files(pattern=".r$")) { source(i) }
2、
rm(list = ls()) dir() for (i in dir()) { if(substr(i,nchar(i)-1,nchar(i)) == ".r"){ source(i) } }
R语言中批量加载函数
原文：https://www.cnblogs.com/liujiaxin2018/p/14948087.html
