unclass raster data before calculating resolution (#5638)

teunbrand · thomasp85 · commit ab036cb6bf88 · 2024-02-23T11:07:07.000+01:00
diff --git a/R/geom-raster.R b/R/geom-raster.R
@@ -94,8 +94,8 @@ GeomRaster <- ggproto("GeomRaster", Geom,
     }
 
     # Convert vector of data to raster
-    x_pos <- as.integer((data$x - min(data$x)) / resolution(data$x, FALSE))
-    y_pos <- as.integer((data$y - min(data$y)) / resolution(data$y, FALSE))
+    x_pos <- as.integer((data$x - min(data$x)) / resolution(unclass(data$x), FALSE))
+    y_pos <- as.integer((data$y - min(data$y)) / resolution(unclass(data$y), FALSE))
 
     data <- coord$transform(data, panel_params)
 

Original file line number	Diff line number	Diff line change
`@@ -94,8 +94,8 @@ GeomRaster <- ggproto("GeomRaster", Geom,`
`94`	`94`	`}`
`95`	`95`
`96`	`96`	`# Convert vector of data to raster`
`97`		`- x_pos <- as.integer((data$x - min(data$x)) / resolution(data$x, FALSE))`
`98`		`- y_pos <- as.integer((data$y - min(data$y)) / resolution(data$y, FALSE))`
	`97`	`+ x_pos <- as.integer((data$x - min(data$x)) / resolution(unclass(data$x), FALSE))`
	`98`	`+ y_pos <- as.integer((data$y - min(data$y)) / resolution(unclass(data$y), FALSE))`
`99`	`99`
`100`	`100`	`data <- coord$transform(data, panel_params)`
`101`	`101`