fix vectorised aesthetics case

teunbrand · teunbrand · commit 47a6b57d1ff3 · 2024-11-22T11:31:25.000+01:00
diff --git a/R/scales-.R b/R/scales-.R
@@ -184,7 +184,9 @@ ScalesList <- ggproto("ScalesList", NULL,
         self$scales[[i]] <- self$scales[[i]]$update(params)
       }
     } else {
-      self$params[[aesthetic]] <- defaults(params, self$params[[aesthetic]])
+      for (i in aesthetic) {
+        self$params[[i]] <- defaults(params, self$params[[i]])
+      }
     }
   }
 )

Original file line number	Diff line number	Diff line change
`@@ -184,7 +184,9 @@ ScalesList <- ggproto("ScalesList", NULL,`
`184`	`184`	`self$scales[[i]] <- self$scales[[i]]$update(params)`
`185`	`185`	`}`
`186`	`186`	`} else {`
`187`		`- self$params[[aesthetic]] <- defaults(params, self$params[[aesthetic]])`
	`187`	`+ for (i in aesthetic) {`
	`188`	`+ self$params[[i]] <- defaults(params, self$params[[i]])`
	`189`	`+ }`
`188`	`190`	`}`
`189`	`191`	`}`
`190`	`192`	`)`