don't compress dynlib cache

jjallaire · jjallaire · commit f7e1024d010f · 2016-07-11T14:55:56.000-04:00
diff --git a/R/Attributes.R b/R/Attributes.R
@@ -1025,7 +1025,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
 # write the cache to disk
 .sourceCppDynlibWriteCache <- function(cacheDir, cache) {
     index_file <- file.path(cacheDir, "cache.rds")
-    save(cache, file = index_file)
+    save(cache, file = index_file, compress = FALSE)
 }
 
 # read the cache from disk 

Original file line number	Diff line number	Diff line change
`@@ -1025,7 +1025,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {`
`1025`	`1025`	`# write the cache to disk`
`1026`	`1026`	`.sourceCppDynlibWriteCache <- function(cacheDir, cache) {`
`1027`	`1027`	`index_file <- file.path(cacheDir, "cache.rds")`
`1028`		`- save(cache, file = index_file)`
	`1028`	`+ save(cache, file = index_file, compress = FALSE)`
`1029`	`1029`	`}`
`1030`	`1030`
`1031`	`1031`	`# read the cache from disk`