Be explicit about where digest lives

rstudio · Apr 30, 2014 · 59dab77 · 59dab77
1 parent fd4653c
commit 59dab77
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/ggvis.R b/R/ggvis.R
@@ -169,7 +169,7 @@ register_reactives <- function(vis, reactives = NULL) {
 register_reactive <- function(vis, reactive) {
   # Add reactive id if needed
   if (is.null(reactive_id(reactive))) {
-    reactive_id(reactive) <- paste0("reactive_", digest(reactive, algo = "crc32"))
+    reactive_id(reactive) <- paste0("reactive_", digest::digest(reactive, algo = "crc32"))
   }
 
   label <- reactive_id(reactive)

diff --git a/R/prop.R b/R/prop.R
@@ -59,7 +59,7 @@ prop <- function(x, scale = NULL, offset = NULL, mult = NULL,
 
   } else if (is.reactive(x)) {
     type <- "reactive"
-    reactive_id(x) <- paste0("reactive_", digest(x, algo = "crc32"))
+    reactive_id(x) <- paste0("reactive_", digest::digest(x, algo = "crc32"))
     scale <- scale %||% FALSE
   } else if (is.quoted(x)) {
     type <- "variable"

diff --git a/R/props.R b/R/props.R
@@ -220,5 +220,5 @@ is.formula <- function(x) inherits(x, "formula")
 
 # Given a props object, return a unique name for that set of props
 props_id <- function(x) {
-  digest(x, algo = "crc32")
+  digest::digest(x, algo = "crc32")
 }
diff --git a/R/utils_data.R b/R/utils_data.R
@@ -8,7 +8,7 @@ get_data_id <- function(data, prefix = "unnamed_data") {
   if (!is.null(attr(data, "data_id")))
     return(attr(data, "data_id"))
 
-  paste0(prefix, "_", digest(data, algo = "crc32"))
+  paste0(prefix, "_", digest::digest(data, algo = "crc32"))
 }
 
 # Add the appropriate data_id attribute to a data object, and return it.