use vctrs rules to preserve AsIs

teunbrand · teunbrand · commit 7141435163c7 · 2024-11-12T14:31:11.000+01:00
diff --git a/R/annotation-custom.R b/R/annotation-custom.R
@@ -71,7 +71,7 @@ GeomCustomAnn <- ggproto("GeomCustomAnn", Geom,
   draw_panel = function(data, panel_params, coord, grob, xmin, xmax,
                         ymin, ymax) {
     range <- ranges_annotation(
-      coord, panel_params, c(xmin, xmax), c(ymin, ymax),
+      coord, panel_params, vec_c(xmin, xmax), vec_c(ymin, ymax),
       fun = "annotation_custom"
     )
     vp <- viewport(x = mean(range$x), y = mean(range$y),
diff --git a/R/annotation-raster.R b/R/annotation-raster.R
@@ -74,7 +74,7 @@ GeomRasterAnn <- ggproto("GeomRasterAnn", Geom,
   draw_panel = function(data, panel_params, coord, raster, xmin, xmax,
                         ymin, ymax, interpolate = FALSE) {
     range <- ranges_annotation(
-      coord, panel_params, c(xmin, xmax), c(ymin, ymax),
+      coord, panel_params, vec_c(xmin, xmax), vec_c(ymin, ymax),
       fun = "annotation_raster"
     )
     rasterGrob(raster, range$x[1], range$y[1],

Original file line number	Diff line number	Diff line change
`@@ -71,7 +71,7 @@ GeomCustomAnn <- ggproto("GeomCustomAnn", Geom,`
`71`	`71`	`draw_panel = function(data, panel_params, coord, grob, xmin, xmax,`
`72`	`72`	`ymin, ymax) {`
`73`	`73`	`range <- ranges_annotation(`
`74`		`- coord, panel_params, c(xmin, xmax), c(ymin, ymax),`
	`74`	`+ coord, panel_params, vec_c(xmin, xmax), vec_c(ymin, ymax),`
`75`	`75`	`fun = "annotation_custom"`
`76`	`76`	`)`
`77`	`77`	`vp <- viewport(x = mean(range$x), y = mean(range$y),`
Original file line number	Diff line number	Diff line change
`@@ -74,7 +74,7 @@ GeomRasterAnn <- ggproto("GeomRasterAnn", Geom,`
`74`	`74`	`draw_panel = function(data, panel_params, coord, raster, xmin, xmax,`
`75`	`75`	`ymin, ymax, interpolate = FALSE) {`
`76`	`76`	`range <- ranges_annotation(`
`77`		`- coord, panel_params, c(xmin, xmax), c(ymin, ymax),`
	`77`	`+ coord, panel_params, vec_c(xmin, xmax), vec_c(ymin, ymax),`
`78`	`78`	`fun = "annotation_raster"`
`79`	`79`	`)`
`80`	`80`	`rasterGrob(raster, range$x[1], range$y[1],`