avoid recursive problems

teunbrand · teunbrand · commit 0a78264b76b1 · 2024-12-04T16:18:10.000+01:00
diff --git a/R/utilities.R b/R/utilities.R
@@ -195,6 +195,7 @@ waiver <- function() structure(list(), class = "waiver")
 is.waiver <- function(x) inherits(x, "waiver")
 
 pal_binned <- function(palette) {
+  force(palette)
   function(x) {
     palette(length(x))
   }

Original file line number	Diff line number	Diff line change
`@@ -195,6 +195,7 @@ waiver <- function() structure(list(), class = "waiver")`
`195`	`195`	`is.waiver <- function(x) inherits(x, "waiver")`
`196`	`196`
`197`	`197`	`pal_binned <- function(palette) {`
	`198`	`+ force(palette)`
`198`	`199`	`function(x) {`
`199`	`200`	`palette(length(x))`
`200`	`201`	`}`