使用magicfor在r中保存循环

我正在提取太阳能数据库的数据，我试图用magicfor在r中保存每年的每个循环输出，代码如下：

RS <- read.table("./RS_29015040.csv",head=T,sep=";",dec=",")
RS$Fecha <- as.POSIXct(RS$Fecha, format="%d/%m/%Y %H:%M")       
RS$Ano <- as.integer(substr(RS$Fecha,1,4))              
RS$Mes <- as.integer(substr(RS$Fecha,6,7))  
    
library(magicfor)
magic_for(silent = TRUE)

for (i in 1999:2020){

for (c in 1:12){
  RSM <- subset(RS,Ano==i & Mes==c) 
  dime <- dim(RSM)
  tamañomes <- dime[c(1)]
  put(i,tamañomes)
  }
salida2 <- magic_result_as_dataframe()
write.csv (salida2, file =paste("meses",i,".csv"))
 }

RS