fix esoteric 'promise already under evaluation' error

teunbrand · teunbrand · commit 39765cdfbd33 · 2025-03-17T10:58:04.000+01:00
diff --git a/R/plot.R b/R/plot.R
@@ -163,6 +163,7 @@ class_ggplot <- S7::new_class(
 ggplot <- S7::new_generic(
   "ggplot2", "data",
   fun = function(data, mapping = aes(), ..., environment = parent.frame()) {
+    force(mapping)
     S7::S7_dispatch()
   }
 )

Original file line number	Diff line number	Diff line change
`@@ -163,6 +163,7 @@ class_ggplot <- S7::new_class(`
`163`	`163`	`ggplot <- S7::new_generic(`
`164`	`164`	`"ggplot2", "data",`
`165`	`165`	`fun = function(data, mapping = aes(), ..., environment = parent.frame()) {`
	`166`	`+ force(mapping)`
`166`	`167`	`S7::S7_dispatch()`
`167`	`168`	`}`
`168`	`169`	`)`