Merge branch 'toledo60-remove-purrr'

nrennie · Jun 16, 2024 · e89b7a9 · e89b7a9
2 parents 1b23621 + 7e3852f
commit e89b7a9
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: PrettyCols
 Title: Pretty Colour Palettes
-Version: 1.0.1.9002
+Version: 1.0.1.9003
 Authors@R: 
     person(given = "Nicola",
            family = "Rennie",
@@ -17,8 +17,7 @@ Imports:
   ggplot2,
   graphics,
   grDevices,
-  lifecycle,
-  purrr
+  lifecycle
 Suggests:
   covr,
   knitr,

diff --git a/NEWS.md b/NEWS.md
@@ -12,7 +12,7 @@
 * Changes examples to `mtcars` data
 * Remove `scale_name` from `discrete_scale()` calls
 * Add {lifecycle} to Imports
-
+* Removed {purrr} dependency
 
 ## PrettyCols 1.0.1 2023_01_27
 

diff --git a/R/view_all_palettes.R b/R/view_all_palettes.R
@@ -30,7 +30,7 @@ view_all_palettes <- function(type = "all",
       n_col <- min(4, floor(sqrt(n_all)))
       n_row <- ceiling(n_all / n_col)
       par(mfrow = c(n_row, n_col))
-      purrr::map(.x = names(to_print), .f = ~ print(prettycols(.x)))
+      lapply(names(to_print), function(.x) print(prettycols(.x)))
       par(mfrow = c(1, 1))
     } else {
       if (colourblind_friendly == TRUE) {
@@ -46,7 +46,7 @@ view_all_palettes <- function(type = "all",
       n_col <- min(3, floor(sqrt(n_all)))
       n_row <- ceiling(n_all / n_col)
       par(mfrow = c(n_row, n_col))
-      purrr::map(.x = names(filtered_palettes), .f = ~ print(prettycols(.x)))
+      lapply(names(filtered_palettes), function(.x) print(prettycols(.x)))
       par(mfrow = c(1, 1))
     }
   }