Move digest to suggests

Fixes #2057

Author: hadley

DESCRIPTION

@@ -21,7 +21,6 @@ Imports:
     callr (>= 3.7.3),
     cli (>= 3.6.1),
     desc (>= 1.4.2),
-    digest (>= 0.6.33),
     evaluate (>= 1.0.1),
     jsonlite (>= 1.8.7),
     lifecycle (>= 1.0.3),
@@ -40,6 +39,7 @@ Suggests:
     covr,
     curl (>= 0.9.5),
     diffviewer (>= 0.1.0),
+    digest (>= 0.6.33),
     knitr,
     rmarkdown,
     rstudioapi,

R/expect-known.R

@@ -191,6 +191,7 @@ expect_equal_to_reference <- function(..., update = FALSE) {
 #' @param hash Known hash value. Leave empty and you'll be informed what
 #'   to use in the test output.
 expect_known_hash <- function(object, hash = NULL) {
+  check_installed("digest")
   edition_deprecate(3, "expect_known_hash()",
     "Please use `expect_snapshot_value()` instead"
   )

R/watcher.R

@@ -44,7 +44,7 @@ safe_digest <- function(path) {
   if (is_directory(path)) return(NA_character_)
   if (!is_readable(path)) return(NA_character_)
 
-  digest::digest(path, file = TRUE)
+  rlang::hash_file(path)
 }
 
 #' Capture the state of a directory.