Merge pull request #16 from abelcastilloavant/add_accessors

add accessors to cache objects

DESCRIPTION

@@ -2,7 +2,7 @@ Package: cacher
 Type: Package
 Title: cacher (http://github.com/kirillseva/cacher)
 Description: In-memory cache interfaces for R.
-Version: 0.1.2
+Version: 0.1.3
 Author: Kirill Sevastyanenko <kirillseva@gmail.com>
 Maintainer: Kirill Sevastyanenko <kirillseva@gmail.com>
 Authors@R: c(person("Kirill", "Sevastyanenko",
@@ -22,4 +22,4 @@ Suggests:
 Roxygen: list(wrap = FALSE)
 URL: http://github.com/kirillseva/cacher
 BugReports: http://github.com/kirillseva/cacher/issues
-RoxygenNote: 5.0.1.9000
+RoxygenNote: 5.0.0

NAMESPACE

@@ -1,5 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("[[",LRUcache_)
+S3method("[[<-",LRUcache_)
 S3method(LRUcache,character)
 S3method(LRUcache,numeric)
 export(LRUcache)

NEWS.md

@@ -1,3 +1,6 @@
+# Version 0.1.3
+- Allows reading and writing to a cache via `[[`.
+
 # Version 0.1.2
 - Added a method to give a list of keys for all objects in a cache.
 

R/accessors.R

@@ -0,0 +1,5 @@
+#' @export
+`[[.LRUcache_` <- function(cache, key) { cache$get(key) }
+
+#' @export
+`[[<-.LRUcache_` <- function(cache, key, value) { cache$set(key, value = value) }

tests/testthat/test-accessors.R

@@ -0,0 +1,11 @@
+test_that("`[[` allows retrieval of objects from cache", {
+  x <- LRUcache(1)
+  x$set("a", 10)
+  expect_equal(x[["a"]], 10)
+})
+
+test_that("`[[` allows assignment of objects to cache", {
+  y <- LRUcache(1)
+  y[["b"]] <- 20
+  expect_equal(y$get("b"), 20)
+})