Cómo solucionar ‘Error 1 al extraer del archivo .zip’ (R)

Como parte de mi asignación del certificado de Google DA, estaba tratando de encontrar una solución elegante sobre cómo descargar, descomprimir y fusionar múltiples archivos .csv usando R, pero sigo enfrentando el mismo problema una y otra vez:

error 1 al extraer del archivo zip

Datos:
Fuente: Divvy

El código que ejecuto es:

declarar nombres de archivo variables correspondientes a los meses del calendario

meses <- c(202011:202012,202101:202110)

declarar el directorio para almacenar los archivos de origen

almacenamiento <- "C:\Users\…\start"

vectores de todas las URL para descargar desde y archivos de destino

urls <-
paste0("https://divvy-tripdata.s3.amazonaws.com/",meses, "-divvy-tripdata.zip")

la idea era descargar los archivos en archivos temporales, descomprimir los contenidos en el directorio de 'almacenamiento' y eliminar el directorio temporal.

temp <- tempdir()
tempfile <- paste0(temp,"\",meses,".zip")

Descargar los archivos de 12 meses

for(i in seq(urls)){
download.file(urls[i],tempfile[i], mode="wb")
}

nombres_archivos <- list.files(temp, pattern = ".zip")

for (i in seq(nombres_archivos)){
unzip(nombres_archivos,exdir=almacenamiento,overwrite = FALSE)}

Advertencia al descomprimir (“nombres_archivos”, exdir = almacenamiento, sobrescribir = FALSE):
error 1 al extraer del archivo zip

Todo funciona hasta el paso de descomprimir. Todos los archivos han sido descargados, se pueden abrir, los archivos no están corruptos, las propiedades muestran la extensión como .zip

He intentado mi código en múltiples máquinas, en diferentes directorios, intenté descargar los archivos manualmente, intenté descomprimir cada archivo individual y todos juntos usando bucles y ldply, el resultado sigue siendo el mismo.

He pasado 3 días tratando de resolverlo y agradecería cualquier ayuda 🙂