Fix broken cache_exists method.

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2 (4.1.0): do not edit by hand
 
+S3method(print,director)
 export(director)
 export(is.director)
 export(registry)

R/director.R

@@ -54,16 +54,16 @@ NULL
 #' @format NULL
 director_ <- R6::R6Class("director",
   private = list(
+  ),
+  public = list(                    
     .root           = NULL, # character
     .project_name   = NULL, # character
     .resource_cache = list(), # list
     .registry       = NULL, # registry
     .dependency_nesting_level = 0, # integer
     .parsers        = list(), # list
     .preprocessors  = list(), # list
-    .cached_resources = list() # character
-  ),
-  public = list(                    
+    .cached_resources = list(), # character
     # Members
     dependency_stack = NULL, # stack
     cache            = NULL,
@@ -129,6 +129,11 @@ director <- structure(
   ..1
 }
 
+#' @export
+print.director <- function(x, ...) {
+  x$show()
+}
+
 #' @docType function
 #' @name director
 #' @export

R/utils.R

@@ -213,7 +213,7 @@ simple_cache <- function() {
     ## If instead we said `cache[[key]] <<- value`, `NULL` values would be
     ## cached incorrectly, since assigning `NULL` remove the key.
     set    = function(key, value) cache[key] <<- structure(list(value), .Names = key),
-    exists = function(key) is.element(key, names(key)),
+    exists = function(key) is.element(key, names(cache)),
     unset  = function(key) cache[[key]] <<- NULL
   )
 }