一括してsourceCpp() たくさんcppファイルを作ったら

• 練習でたくさんのcppファイルを作ると、sourceCpp("hoge.cpp")が面倒くさくなる
• ので、ディレクトリの中のcppファイルのリストを作って、一括して処理

library(Rcpp)
library(RcppArmadillo)
sourceCpp.list <- function(files,silent=TRUE){
	for(i in 1:length(files)){
		if(!silent){
			print(files[i])
		}
		sourceCpp(files[i])
	}
}
cpp.files <- list.files(pattern=".cpp$")
sourceCpp.list(cpp.files)