R 由于压缩文件夹中的名称过长，解压缩失败

我希望能够读取和编辑从服务器下载的空间SQlite表。这些都是压缩的

这些zip文件中有一个文件夹，其中包含有关作为文件夹名称运行的模型的信息，因此这些文件夹有时可能相当长

当此文件夹名称过长时，解压缩文件夹失败。我最终不需要解压缩文件。但当我在readOGR中使用unz时，似乎也会遇到同样的错误

我想不出如何重新创建一个可复制的示例，但我可以给出一个有效路径和无效路径的示例

作品： “S:\3\u Projects\CRC00001\4699-12103\scenario\u initialized model\performance\u assessment.sqlite”

4699-12103是zip文件名 “scenario_Initialized model”是有问题的子文件夹

失败： “”S:\3_Projects\CRC00001\4699-12129\scenario_tree_canopy_7，树数_0，道路_False，合规性_75，2030年，nrz_cover_0.6，绿色屋顶_0 \性能评估。sqlite“”

4699-12103是zip文件名 “场景树冠层7，树数0，道路错误，合规性75，2030年，nrz覆盖率0.6，绿色屋顶0”是违规子文件夹

代码的工作方式与此类似

list_zips <- list.files(pattern = "*.zip", recursive = TRUE, include.dirs = TRUE)

unzip(zipfile = paste(getwd(),"/",list_zips[i],sep = ""),
                    exdir=substr(paste(getwd(),"/",list_zips[i],sep = ""),1,nchar(paste(getwd(),"/",list_zips[i],sep = ""))-4))

list\u拉链
sq_path <- unzip(list_zips[i], list=TRUE)[2,1]
temp <- unz(paste(getwd(),"/",list_zips[i],sep = ""),sq_path)
vectorImport <- readOGR(dsn=temp, layer="micro_climate_grid")