Fixes issue ecohealthalliance#35

FlukeAndFeather · May 30, 2020 · 9e8118a · 9e8118a
1 parent 648430e
commit 9e8118a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/raster-methods.R b/R/raster-methods.R
@@ -19,7 +19,7 @@ setMethod('raster', signature(x='sf'),
             ext <- raster::extent(bb)
             r <- raster::raster(ext, ...)
 
-            r@crs <- CRS(attr(x[[attr(x, "sf_column")]], "crs")[["proj4string"]])
+            r@crs <- CRS(attr(x[[attr(x, "sf_column")]], "crs")$proj4string)
             if (!missing(origin)) {
               raster::origin(r) <- origin
               r <- raster::extend(r, 1)