将多个形状文件合并为一个大形状文件时出现“错误：参数具有不同的crs”

Question

我在目录中有超过一千个形状文件，我想使用以下R脚本和sf软件包将它们组合成一个大形状文件。但是我收到“错误：参数具有不同的crs”。如果有人可以帮助我更正R脚本，我将不胜感激。

谢谢， 拉姆

library(sf)
filepaths <- list.files("D:/tree_objects_by_lidar_tiles/", 
    pattern="*_Polygons.shp$", full.names=TRUE, recursive=TRUE)
filepaths1<- filepaths[1:1000]
listOfShp <- lapply(filepaths1, st_read)
combinedShp <- do.call(what = sf:::rbind.sf, args=listOfShp)
st_write(obj = combinedShp, dsn = 
    "D:/tree_objects/tree_objects_combined1.gpkg", update = TRUE)