my関数 <- function() {
files <- list.files()
for (i in files) {
　　　ここに処理を書く
}
}