Lectura y generación automática de xlsx

ficheros <- dir("partidosss/gastos_ingresos" ,pattern=".rds")
ficheros
##  [1] "partido_alcaldes_gastos.rds"            
##  [2] "partido_alcaldes_ingresos.rds"          
##  [3] "partido_concejales_gastos.rds"          
##  [4] "partido_concejales_ingresos.rds"        
##  [5] "partido_concejero_regional_ingresos.rds"
##  [6] "partido_consejero_regional_gastos.rds"  
##  [7] "partido_diputados_gastos.rds"           
##  [8] "partido_diputados_ingresos.rds"         
##  [9] "partido_presidentes_gastos.rds"         
## [10] "partido_presidentes_ingresos.rds"       
## [11] "partido_senadores_gastos.rds"           
## [12] "partido_senadores_ingresos.rds"
nombrecito <- vector()

for(i in ficheros){
      
      nombrecito <-  i
      nombrecito_largo <- paste("partidosss/gastos_ingresos/", nombrecito, sep ="")
      print(nombrecito_largo)
      nombrecito_2 <- readRDS(nombrecito_largo)
      nombrecito_xlsx <- paste("partidosss/gastos_ingresos/", nombrecito , ".xlsx", sep ="")
      write_xlsx(nombrecito_2 , nombrecito_xlsx )
}
## [1] "partidosss/gastos_ingresos/partido_alcaldes_gastos.rds"
## [1] "partidosss/gastos_ingresos/partido_alcaldes_ingresos.rds"
## [1] "partidosss/gastos_ingresos/partido_concejales_gastos.rds"
## [1] "partidosss/gastos_ingresos/partido_concejales_ingresos.rds"
## [1] "partidosss/gastos_ingresos/partido_concejero_regional_ingresos.rds"
## [1] "partidosss/gastos_ingresos/partido_consejero_regional_gastos.rds"
## [1] "partidosss/gastos_ingresos/partido_diputados_gastos.rds"
## [1] "partidosss/gastos_ingresos/partido_diputados_ingresos.rds"
## [1] "partidosss/gastos_ingresos/partido_presidentes_gastos.rds"
## [1] "partidosss/gastos_ingresos/partido_presidentes_ingresos.rds"
## [1] "partidosss/gastos_ingresos/partido_senadores_gastos.rds"
## [1] "partidosss/gastos_ingresos/partido_senadores_ingresos.rds"
nombrecito
## [1] "partido_senadores_ingresos.rds"