r - rのループでExcelファイルを保存する

Question

データフレームがあり、そのサブセットを作成しました。データ フレームとそのサブセットを可変要素で分割します。エクセルファイルに保存したいです。複数のExcelファイルのデータフレームを作成するループを書きたいと思います.サブセットファイルは変数ごとにシートにあります。

最後の種類の可変ワークブックを保存するだけのコードを書きました。すべてのワークブックを作成する方法。

rm(list = ls())

mtcars


split_mtcars <- split(mtcars, mtcars$cyl)
split_mtcars_subset <- split(mtcars[,2:4], mtcars$cyl)

cyl_type <- names(split_mtcars)


for(i in length(cyl_type)){
wb <- createWorkbook()
addWorksheet(wb, "raw")
addWorksheet(wb, "subset")

writeData(wb, 1, split_mtcars[[i]])
writeData(wb, 2, split_mtcars_subset[[i]])

saveWorkbook(wb, file = paste0(cyl_type[i],".xlsx"), overwrite = TRUE)
}

前もって感謝します