Update age.R use palette generator

cAlting · cAlting · commit a75d218e71a6 · 2026-06-08T08:52:52.000+02:00
diff --git a/R/age.R b/R/age.R
@@ -356,7 +356,7 @@ age <- function(
           x = .data$age,
         )
       ) +
-        ggdist::stat_slab(fill = fearbase_palette_v2[3]) +
+        ggdist::stat_slab(fill = generate_palette(1)) +
         labs(
           x = "Age",
           y = "Density"

Original file line number	Diff line number	Diff line change
`@@ -356,7 +356,7 @@ age <- function(`
`356`	`356`	`x = .data$age,`
`357`	`357`	`)`
`358`	`358`	`) +`
`359`		`- ggdist::stat_slab(fill = fearbase_palette_v2[3]) +`
	`359`	`+ ggdist::stat_slab(fill = generate_palette(1)) +`
`360`	`360`	`labs(`
`361`	`361`	`x = "Age",`
`362`	`362`	`y = "Density"`