fix #6529

Author: teunbrand

R/geom-contour.R

@@ -7,7 +7,7 @@ GeomContour <- ggproto(
   "GeomContour", GeomPath,
   default_aes = aes(
     weight = 1,
-    colour = from_theme(accent),
+    colour = from_theme(colour %||% accent),
     linewidth = from_theme(linewidth),
     linetype = from_theme(linetype),
     alpha = NA

R/geom-path.R

@@ -6,7 +6,7 @@ GeomPath <- ggproto("GeomPath", Geom,
   required_aes = c("x", "y"),
 
   default_aes = aes(
-    colour = from_theme(ink),
+    colour = from_theme(colour %||% ink),
     linewidth = from_theme(linewidth),
     linetype = from_theme(linetype),
     alpha = NA