Hope this helps!(お役に立てれば!)
# setwd("<absolute path of directory having all csv files>")
setwd("<対象になる全てのCSVファイルが入ったディレクトリへの絶対パス>")
#上記のディレクトリ内の全てのCSVファイルを列挙
#list all csv files in above directory
files <- list.files(pattern = "\\.csv$")
for (f in 1:length(files)){
i <- gsub("(.*).csv","\\1",files[f])
# <your code>
<あなたのコード>
}