Don't use partial name matching

R/cache.r

@@ -1,28 +1,28 @@
 new_cache <- function() {
-  
+
   cache <- NULL
   cache_reset <- function() {
     cache <<- new.env(TRUE, emptyenv())
   }
-  
+
   cache_set <- function(key, value) {
-    assign(key, value, env = cache)
+    assign(key, value, envir = cache)
   }
-  
+
   cache_get <- function(key) {
-    get(key, env = cache, inherits = FALSE)
+    get(key, envir = cache, inherits = FALSE)
   }
-  
+
   cache_has_key <- function(key) {
-    exists(key, env = cache, inherits = FALSE)
+    exists(key, envir = cache, inherits = FALSE)
   }
-  
+
   cache_reset()
   list(
-    reset = cache_reset, 
-    set = cache_set, 
+    reset = cache_reset,
+    set = cache_set,
     get = cache_get,
     has_key = cache_has_key,
     keys = function() ls(cache)
   )
-}
+}