get cache varible w/o direct reference (R CMD check)

jjallaire · jjallaire · commit 566832a44fc9 · 2016-07-11T13:11:31.000-04:00
diff --git a/R/Attributes.R b/R/Attributes.R
@@ -1033,7 +1033,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
     index_file <- file.path(cacheDir, "cache.rds")
     if (file.exists(index_file)) {
         load(file = index_file)
-        cache
+        get("cache")
     } else {
         list()
     }

Original file line number	Diff line number	Diff line change
`@@ -1033,7 +1033,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {`
`1033`	`1033`	`index_file <- file.path(cacheDir, "cache.rds")`
`1034`	`1034`	`if (file.exists(index_file)) {`
`1035`	`1035`	`load(file = index_file)`
`1036`		`- cache`
	`1036`	`+ get("cache")`
`1037`	`1037`	`} else {`
`1038`	`1038`	`list()`
`1039`	`1039`	`}`