split large dataset into a multiple sheet excel file

dat <- readxl::read_excel("data/balcarce_clima.xlsx")
dat <- dat %>%  
  mutate(year = lubridate::year(date)) %>% 
  select(year, everything())

library(openxlsx)

your_df_list <- dat %>% split(dat$year)
wb <- createWorkbook()

for (i in 1:length(your_df_list)) {
  addWorksheet(wb, sheetName=names(your_df_list[i]))
  writeData(wb, sheet=names(your_df_list[i]), x=your_df_list[[i]]) # Note [[]]
}

saveWorkbook(wb, "data/meteo_eea.xlsx", overwrite = TRUE)  
drive_upload(path = as_dribble("Meteo Balcarce"), "data/meteo_eea.xlsx", overwrite = TRUE)