g

rhijmans · rhijmans · commit a47beea9f4bc · 2022-09-18T18:03:17.000-07:00
diff --git a/R/raster.R b/R/raster.R
@@ -474,6 +474,8 @@ setMethod('raster', signature(x='GridTopology'),
 
 setMethod('raster', signature(x='SpatRaster'),
 	function(x) {
-		as(x[[1]], "Raster")
+		r <- as(x[[1]], "Raster")
+		g <- gc()
+		r
 	}
 )

Original file line number	Diff line number	Diff line change
`@@ -474,6 +474,8 @@ setMethod('raster', signature(x='GridTopology'),`
`474`	`474`
`475`	`475`	`setMethod('raster', signature(x='SpatRaster'),`
`476`	`476`	`function(x) {`
`477`		`- as(x[[1]], "Raster")`
	`477`	`+ r <- as(x[[1]], "Raster")`
	`478`	`+ g <- gc()`
	`479`	`+ r`
`478`	`480`	`}`
`479`	`481`	`)`