From 2945faefecf047938b88f7a5a1b3d625f3d3f400 Mon Sep 17 00:00:00 2001
From: Nan Xiao <me@nanx.me>
Date: Sun, 17 Mar 2024 19:23:07 -0400
Subject: [PATCH] Remove `scale_name` from `discrete_scale()` calls due to
 deprecation in ggplot2 3.5.0

---
 R/discrete-aaas.R         | 4 ++--
 R/discrete-cosmic.R       | 4 ++--
 R/discrete-d3.R           | 4 ++--
 R/discrete-flatui.R       | 4 ++--
 R/discrete-frontiers.R    | 4 ++--
 R/discrete-futurama.R     | 4 ++--
 R/discrete-igv.R          | 4 ++--
 R/discrete-jama.R         | 4 ++--
 R/discrete-jco.R          | 4 ++--
 R/discrete-lancet.R       | 4 ++--
 R/discrete-locuszoom.R    | 4 ++--
 R/discrete-nejm.R         | 4 ++--
 R/discrete-npg.R          | 4 ++--
 R/discrete-rickandmorty.R | 4 ++--
 R/discrete-simpsons.R     | 4 ++--
 R/discrete-startrek.R     | 4 ++--
 R/discrete-tron.R         | 4 ++--
 R/discrete-uchicago.R     | 4 ++--
 R/discrete-ucscgb.R       | 4 ++--
 19 files changed, 38 insertions(+), 38 deletions(-)

diff --git a/R/discrete-aaas.R b/R/discrete-aaas.R
index c339cd2..fe5a0fe 100644
--- a/R/discrete-aaas.R
+++ b/R/discrete-aaas.R
@@ -76,7 +76,7 @@ pal_aaas <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_aaas()
 scale_color_aaas <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "aaas", pal_aaas(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_aaas(palette, alpha), ...)
 }
 
 #' @export scale_colour_aaas
@@ -88,5 +88,5 @@ scale_colour_aaas <- scale_color_aaas
 #' @rdname scale_aaas
 scale_fill_aaas <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "aaas", pal_aaas(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_aaas(palette, alpha), ...)
 }
diff --git a/R/discrete-cosmic.R b/R/discrete-cosmic.R
index dd75b7b..585598e 100644
--- a/R/discrete-cosmic.R
+++ b/R/discrete-cosmic.R
@@ -87,7 +87,7 @@ scale_color_cosmic <- function(
     palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"),
     alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "cosmic", pal_cosmic(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_cosmic(palette, alpha), ...)
 }
 
 #' @export scale_colour_cosmic
@@ -101,5 +101,5 @@ scale_fill_cosmic <- function(
     palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"),
     alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "cosmic", pal_cosmic(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_cosmic(palette, alpha), ...)
 }
diff --git a/R/discrete-d3.R b/R/discrete-d3.R
index 24848f0..fc89a82 100644
--- a/R/discrete-d3.R
+++ b/R/discrete-d3.R
@@ -93,7 +93,7 @@ pal_d3 <- function(palette = c("category10", "category20", "category20b", "categ
 #' p2 + scale_fill_d3(palette = "category20c")
 scale_color_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "d3", pal_d3(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_d3(palette, alpha), ...)
 }
 
 #' @export scale_colour_d3
@@ -105,5 +105,5 @@ scale_colour_d3 <- scale_color_d3
 #' @rdname scale_d3
 scale_fill_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "d3", pal_d3(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_d3(palette, alpha), ...)
 }
diff --git a/R/discrete-flatui.R b/R/discrete-flatui.R
index bc59235..4554b9c 100644
--- a/R/discrete-flatui.R
+++ b/R/discrete-flatui.R
@@ -86,7 +86,7 @@ pal_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1
 #' p2 + scale_fill_flatui(palette = "aussie")
 scale_color_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "flatui", pal_flatui(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_flatui(palette, alpha), ...)
 }
 
 #' @export scale_colour_flatui
@@ -98,5 +98,5 @@ scale_colour_flatui <- scale_color_flatui
 #' @rdname scale_flatui
 scale_fill_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "flatui", pal_flatui(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_flatui(palette, alpha), ...)
 }
diff --git a/R/discrete-frontiers.R b/R/discrete-frontiers.R
index 2bcfea7..603744f 100644
--- a/R/discrete-frontiers.R
+++ b/R/discrete-frontiers.R
@@ -79,7 +79,7 @@ pal_frontiers <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_frontiers()
 scale_color_frontiers <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "frontiers", pal_frontiers(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_frontiers(palette, alpha), ...)
 }
 
 #' @export scale_colour_frontiers
@@ -91,5 +91,5 @@ scale_colour_frontiers <- scale_color_frontiers
 #' @rdname scale_frontiers
 scale_fill_frontiers <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "frontiers", pal_frontiers(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_frontiers(palette, alpha), ...)
 }
diff --git a/R/discrete-futurama.R b/R/discrete-futurama.R
index 28e8426..683bb46 100644
--- a/R/discrete-futurama.R
+++ b/R/discrete-futurama.R
@@ -74,7 +74,7 @@ pal_futurama <- function(palette = c("planetexpress"), alpha = 1) {
 #'   scale_fill_futurama()
 scale_color_futurama <- function(palette = c("planetexpress"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "futurama", pal_futurama(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_futurama(palette, alpha), ...)
 }
 
 #' @export scale_colour_futurama
@@ -86,5 +86,5 @@ scale_colour_futurama <- scale_color_futurama
 #' @rdname scale_futurama
 scale_fill_futurama <- function(palette = c("planetexpress"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "futurama", pal_futurama(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_futurama(palette, alpha), ...)
 }
diff --git a/R/discrete-igv.R b/R/discrete-igv.R
index 1bea09f..096b62d 100644
--- a/R/discrete-igv.R
+++ b/R/discrete-igv.R
@@ -89,7 +89,7 @@ pal_igv <- function(palette = c("default", "alternating"), alpha = 1) {
 #' )
 scale_color_igv <- function(palette = c("default", "alternating"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "igv", pal_igv(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_igv(palette, alpha), ...)
 }
 
 #' @export scale_colour_igv
@@ -101,5 +101,5 @@ scale_colour_igv <- scale_color_igv
 #' @rdname scale_igv
 scale_fill_igv <- function(palette = c("default", "alternating"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "igv", pal_igv(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_igv(palette, alpha), ...)
 }
diff --git a/R/discrete-jama.R b/R/discrete-jama.R
index ea22566..5bfa643 100644
--- a/R/discrete-jama.R
+++ b/R/discrete-jama.R
@@ -75,7 +75,7 @@ pal_jama <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_jama()
 scale_color_jama <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "jama", pal_jama(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_jama(palette, alpha), ...)
 }
 
 #' @export scale_colour_jama
@@ -87,5 +87,5 @@ scale_colour_jama <- scale_color_jama
 #' @rdname scale_jama
 scale_fill_jama <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "jama", pal_jama(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_jama(palette, alpha), ...)
 }
diff --git a/R/discrete-jco.R b/R/discrete-jco.R
index def588e..f987737 100644
--- a/R/discrete-jco.R
+++ b/R/discrete-jco.R
@@ -74,7 +74,7 @@ pal_jco <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_jco()
 scale_color_jco <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "jco", pal_jco(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_jco(palette, alpha), ...)
 }
 
 #' @export scale_colour_jco
@@ -86,5 +86,5 @@ scale_colour_jco <- scale_color_jco
 #' @rdname scale_jco
 scale_fill_jco <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "jco", pal_jco(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_jco(palette, alpha), ...)
 }
diff --git a/R/discrete-lancet.R b/R/discrete-lancet.R
index f4bbee5..f48d0d0 100644
--- a/R/discrete-lancet.R
+++ b/R/discrete-lancet.R
@@ -75,7 +75,7 @@ pal_lancet <- function(palette = c("lanonc"), alpha = 1) {
 #'   scale_fill_lancet()
 scale_color_lancet <- function(palette = c("lanonc"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "lancet", pal_lancet(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_lancet(palette, alpha), ...)
 }
 
 #' @export scale_colour_lancet
@@ -87,5 +87,5 @@ scale_colour_lancet <- scale_color_lancet
 #' @rdname scale_lancet
 scale_fill_lancet <- function(palette = c("lanonc"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "lancet", pal_lancet(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_lancet(palette, alpha), ...)
 }
diff --git a/R/discrete-locuszoom.R b/R/discrete-locuszoom.R
index 1479c3e..dfd4773 100644
--- a/R/discrete-locuszoom.R
+++ b/R/discrete-locuszoom.R
@@ -79,7 +79,7 @@ pal_locuszoom <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_locuszoom()
 scale_color_locuszoom <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "locuszoom", pal_locuszoom(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_locuszoom(palette, alpha), ...)
 }
 
 #' @export scale_colour_locuszoom
@@ -91,5 +91,5 @@ scale_colour_locuszoom <- scale_color_locuszoom
 #' @rdname scale_locuszoom
 scale_fill_locuszoom <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "locuszoom", pal_locuszoom(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_locuszoom(palette, alpha), ...)
 }
diff --git a/R/discrete-nejm.R b/R/discrete-nejm.R
index 465ca41..d6849bd 100644
--- a/R/discrete-nejm.R
+++ b/R/discrete-nejm.R
@@ -75,7 +75,7 @@ pal_nejm <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_nejm()
 scale_color_nejm <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "nejm", pal_nejm(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_nejm(palette, alpha), ...)
 }
 
 #' @export scale_colour_nejm
@@ -87,5 +87,5 @@ scale_colour_nejm <- scale_color_nejm
 #' @rdname scale_nejm
 scale_fill_nejm <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "nejm", pal_nejm(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_nejm(palette, alpha), ...)
 }
diff --git a/R/discrete-npg.R b/R/discrete-npg.R
index babca70..24d1789 100644
--- a/R/discrete-npg.R
+++ b/R/discrete-npg.R
@@ -75,7 +75,7 @@ pal_npg <- function(palette = c("nrc"), alpha = 1) {
 #'   scale_fill_npg()
 scale_color_npg <- function(palette = c("nrc"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "npg", pal_npg(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_npg(palette, alpha), ...)
 }
 
 #' @export scale_colour_npg
@@ -87,5 +87,5 @@ scale_colour_npg <- scale_color_npg
 #' @rdname scale_npg
 scale_fill_npg <- function(palette = c("nrc"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "npg", pal_npg(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_npg(palette, alpha), ...)
 }
diff --git a/R/discrete-rickandmorty.R b/R/discrete-rickandmorty.R
index cd0c1c6..ba7d4cc 100644
--- a/R/discrete-rickandmorty.R
+++ b/R/discrete-rickandmorty.R
@@ -74,7 +74,7 @@ pal_rickandmorty <- function(palette = c("schwifty"), alpha = 1) {
 #'   scale_fill_rickandmorty()
 scale_color_rickandmorty <- function(palette = c("schwifty"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "rickandmorty", pal_rickandmorty(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_rickandmorty(palette, alpha), ...)
 }
 
 #' @export scale_colour_rickandmorty
@@ -86,5 +86,5 @@ scale_colour_rickandmorty <- scale_color_rickandmorty
 #' @rdname scale_rickandmorty
 scale_fill_rickandmorty <- function(palette = c("schwifty"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "rickandmorty", pal_rickandmorty(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_rickandmorty(palette, alpha), ...)
 }
diff --git a/R/discrete-simpsons.R b/R/discrete-simpsons.R
index 1a78e79..07c5b68 100644
--- a/R/discrete-simpsons.R
+++ b/R/discrete-simpsons.R
@@ -74,7 +74,7 @@ pal_simpsons <- function(palette = c("springfield"), alpha = 1) {
 #'   scale_fill_simpsons()
 scale_color_simpsons <- function(palette = c("springfield"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "simpsons", pal_simpsons(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_simpsons(palette, alpha), ...)
 }
 
 #' @export scale_colour_simpsons
@@ -86,5 +86,5 @@ scale_colour_simpsons <- scale_color_simpsons
 #' @rdname scale_simpsons
 scale_fill_simpsons <- function(palette = c("springfield"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "simpsons", pal_simpsons(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_simpsons(palette, alpha), ...)
 }
diff --git a/R/discrete-startrek.R b/R/discrete-startrek.R
index 82ec4b4..e7572d1 100644
--- a/R/discrete-startrek.R
+++ b/R/discrete-startrek.R
@@ -74,7 +74,7 @@ pal_startrek <- function(palette = c("uniform"), alpha = 1) {
 #'   scale_fill_startrek()
 scale_color_startrek <- function(palette = c("uniform"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "startrek", pal_startrek(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_startrek(palette, alpha), ...)
 }
 
 #' @export scale_colour_startrek
@@ -86,5 +86,5 @@ scale_colour_startrek <- scale_color_startrek
 #' @rdname scale_startrek
 scale_fill_startrek <- function(palette = c("uniform"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "startrek", pal_startrek(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_startrek(palette, alpha), ...)
 }
diff --git a/R/discrete-tron.R b/R/discrete-tron.R
index 65bd3cf..c6d0526 100644
--- a/R/discrete-tron.R
+++ b/R/discrete-tron.R
@@ -81,7 +81,7 @@ pal_tron <- function(palette = c("legacy"), alpha = 1) {
 #'   scale_fill_tron()
 scale_color_tron <- function(palette = c("legacy"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "tron", pal_tron(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_tron(palette, alpha), ...)
 }
 
 #' @export scale_colour_tron
@@ -93,5 +93,5 @@ scale_colour_tron <- scale_color_tron
 #' @rdname scale_tron
 scale_fill_tron <- function(palette = c("legacy"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "tron", pal_tron(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_tron(palette, alpha), ...)
 }
diff --git a/R/discrete-uchicago.R b/R/discrete-uchicago.R
index 1c144c3..cc24fc6 100644
--- a/R/discrete-uchicago.R
+++ b/R/discrete-uchicago.R
@@ -88,7 +88,7 @@ pal_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1) {
 #' p2 + scale_fill_uchicago(palette = "dark")
 scale_color_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "uchicago", pal_uchicago(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_uchicago(palette, alpha), ...)
 }
 
 #' @export scale_colour_uchicago
@@ -100,5 +100,5 @@ scale_colour_uchicago <- scale_color_uchicago
 #' @rdname scale_uchicago
 scale_fill_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "uchicago", pal_uchicago(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_uchicago(palette, alpha), ...)
 }
diff --git a/R/discrete-ucscgb.R b/R/discrete-ucscgb.R
index b0f7d08..86ff1c6 100644
--- a/R/discrete-ucscgb.R
+++ b/R/discrete-ucscgb.R
@@ -74,7 +74,7 @@ pal_ucscgb <- function(palette = c("default"), alpha = 1) {
 #'   scale_fill_ucscgb()
 scale_color_ucscgb <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("colour", "ucscgb", pal_ucscgb(palette, alpha), ...)
+  discrete_scale("colour", palette = pal_ucscgb(palette, alpha), ...)
 }
 
 #' @export scale_colour_ucscgb
@@ -86,5 +86,5 @@ scale_colour_ucscgb <- scale_color_ucscgb
 #' @rdname scale_ucscgb
 scale_fill_ucscgb <- function(palette = c("default"), alpha = 1, ...) {
   palette <- match.arg(palette)
-  discrete_scale("fill", "ucscgb", pal_ucscgb(palette, alpha), ...)
+  discrete_scale("fill", palette = pal_ucscgb(palette, alpha), ...)
 }