Use rlang::hash instead of digest (#4853)

Author: thomasp85

DESCRIPTION

@@ -31,7 +31,6 @@ Depends:
     R (>= 3.3)
 Imports: 
     cli,
-    digest,
     glue,
     grDevices,
     grid,

NEWS.md

@@ -1,5 +1,9 @@
 # ggplot2 (development version)
 
+* Use `rlang::hash()` instead of `digest::digest()`. This update may lead to 
+  changes in the automatic sorting of legends. In order to enforce a specific
+  legend order use the `order` argument in the guide. (@thomasp85, #4458)
+
 * Fix various issues with how `labels`, `breaks`, `limits`, and `show.limits`
   interact in the different binning guides (@thomasp85, #4831)
 

R/guide-bins.R

@@ -209,7 +209,7 @@ guide_train.bins <- function(guide, scale, aesthetic = NULL) {
   guide$key <- key
   guide$hash <- with(
     guide,
-    digest::digest(list(title, key$.label, direction, name))
+    hash(list(title, key$.label, direction, name))
   )
   guide
 }

R/guide-colorbar.r

@@ -231,7 +231,7 @@ guide_train.colorbar <- function(guide, scale, aesthetic = NULL) {
     guide$key <- guide$key[nrow(guide$key):1, ]
     guide$bar <- guide$bar[nrow(guide$bar):1, ]
   }
-  guide$hash <- with(guide, digest::digest(list(title, key$.label, bar, name)))
+  guide$hash <- with(guide, hash(list(title, key$.label, bar, name)))
   guide
 }
 

R/guide-colorsteps.R

@@ -121,7 +121,7 @@ guide_train.colorsteps <- function(guide, scale, aesthetic = NULL) {
       guide$key <- guide$key[nrow(guide$key):1, ]
       guide$bar <- guide$bar[nrow(guide$bar):1, ]
     }
-    guide$hash <- with(guide, digest::digest(list(title, key$.label, bar, name)))
+    guide$hash <- with(guide, hash(list(title, key$.label, bar, name)))
   } else {
     guide <- NextMethod()
     limits <- scale$get_limits()

R/guide-legend.r

@@ -227,7 +227,7 @@ guide_train.legend <- function(guide, scale, aesthetic = NULL) {
   guide$key <- key
   guide$hash <- with(
     guide,
-    digest::digest(list(title, key$.label, direction, name))
+    hash(list(title, key$.label, direction, name))
   )
   guide
 }

R/guides-axis.r

@@ -89,7 +89,7 @@ guide_train.axis <- function(guide, scale, aesthetic = NULL) {
   }
 
   guide$name <- paste0(guide$name, "_", aesthetic)
-  guide$hash <- digest::digest(list(guide$title, guide$key$.value, guide$key$.label, guide$name))
+  guide$hash <- hash(list(guide$title, guide$key$.value, guide$key$.label, guide$name))
   guide
 }