Check if cache is empty

r-lib · Jun 16, 2016 · 4624451 · 4624451
1 parent 6ec14cb
commit 4624451
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # httr 1.2.0.9000
 
+* Fix bug with new cache creation code: need to check that 
+  cache isn't an empty file.
+
 # httr 1.2.0
 
 ## New features

diff --git a/R/oauth-cache.R b/R/oauth-cache.R
@@ -88,9 +88,11 @@ remove_cached_token <- function(token) {
 }
 
 load_cache <- function(cache_path) {
-  if (!file.exists(cache_path)) {
+  if (!file.exists(cache_path) || file_size(cache_path) == 0) {
     list()
   } else {
     readRDS(cache_path)
   }
 }
+
+file_size <- function(x) file.info(x, extra_cols = FALSE)$size