Replace RColorBrewer by base R equivalent

epiverse-trace · Jul 3, 2024 · 1fcd9cf · 1fcd9cf
1 parent 4cef126
commit 1fcd9cf
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -22,7 +22,7 @@ URL: https://epiverse-trace.github.io/epiCo/,
     https://github.com/epiverse-trace/epiCo
 BugReports: https://github.com/epiverse-trace/epiCo/issues
 Depends:
-    R (>= 3.2.0)
+    R (>= 4.0.0)
 Imports:
     dplyr,
     ggplot2,
@@ -32,7 +32,6 @@ Imports:
     leaflet,
     lubridate,
     magrittr,
-    RColorBrewer,
     rlang,
     scales,
     spdep,

diff --git a/R/demographics.R b/R/demographics.R
@@ -819,7 +819,7 @@ occupation_plot <- function(occupation_data, sex = FALSE, q = 0.9) {
     treemapify::geom_treemap() +
     ggplot2::scale_fill_manual(
       name = "Major Group",
-      values = RColorBrewer::brewer.pal(n = 12, name = "Set3")
+      values = grDevices::palette.colors(n = 12, palette = "Set3")
     ) +
     treemapify::geom_treemap_text(
       colour = "grey16", place = "centre",
@@ -908,7 +908,7 @@ occupation_plot_circular <- function(occupation_data, q = 0.9) {
     ggraph::geom_node_circle(ggplot2::aes(fill = .data$sub_major)) +
     ggplot2::scale_fill_manual(
       name = "Major Group",
-      values = RColorBrewer::brewer.pal(n = 12, name = "Set3"),
+      values = grDevices::palette.colors(n = 12, palette = "Set3"),
       labels = circle_vertices$sub_major
     ) +
     ggraph::geom_node_text(ggplot2::aes(label = .data$unit)) +