attemp to remove non-ascii characters from CRS

R/arc2sp.R

@@ -41,7 +41,9 @@
 #' }
 #'
 #' @importFrom arcgisbinding arc.data2sp arc.select arc.open
-#' @importFrom sp CRS
+#' @importFrom sp CRS wkt
+#' @importFrom stringr str_replace
+#' @importFrom methods slot<-
 #'
 arc2sp <- function(fc_path) {
   # Check if fc parent folder exists
@@ -53,14 +55,19 @@ arc2sp <- function(fc_path) {
   # Get CRS
   arcobj_crs <- sp::CRS(SRS_string = paste0("EPSG:", arcobj@shapeinfo$WKID))
 
+  # Convert WKT unicode to ascii (https://github.com/r-spatial/sf/issues/1341)
+  arcobj_wkt <- sp::wkt(arcobj_crs)
+  arcobj_wkt_ascii <- stringr::str_replace(arcobj_wkt, "°|º", "\\\u00b0")
+  arcobj_crs_ascii <- sp::CRS(SRS_string = arcobj_wkt_ascii)
+
   # Make a selection of the ArcGIS data (all data) returned in arc.data format
   arc <- arcgisbinding::arc.select(arcobj)
 
   # Convert the arc.data format to the sp format
   sp <- arcgisbinding::arc.data2sp(arc)
 
   # Set CRS
-  slot(sp, "proj4string") <- arcobj_crs
+  slot(sp, "proj4string") <- arcobj_crs_ascii
 
   return(sp)
 }