prevent guide from clogging up

teunbrand · teunbrand · commit 84cc9642e2fa · 2024-09-20T12:24:36.000+02:00
diff --git a/R/guide-.R b/R/guide-.R
@@ -227,7 +227,7 @@ Guide <- ggproto(
       labels <- as.list(labels)
     }
 
-    key <- data_frame(mapped, .name_repair = ~ aesthetic)
+    key <- data_frame(!!aesthetic := mapped)
     key$.value <- breaks
     key$.label <- labels
 

Original file line number	Diff line number	Diff line change
`@@ -227,7 +227,7 @@ Guide <- ggproto(`
`227`	`227`	`labels <- as.list(labels)`
`228`	`228`	`}`
`229`	`229`
`230`		`- key <- data_frame(mapped, .name_repair = ~ aesthetic)`
	`230`	`+ key <- data_frame(!!aesthetic := mapped)`
`231`	`231`	`key$.value <- breaks`
`232`	`232`	`key$.label <- labels`
`233`	`233`