Better handling of "errors" from the server

Server really shouldn't return 200 for these, though.
metacran · 6c0263d82d97cc1a211fcc3cbf307edb7b7ce69e · gaborcsardi committed Apr 9, 2015 · Apr 9, 2015 · 6c0263d
1 parent 68a38c1
commit 6c0263d82d97cc1a211fcc3cbf307edb7b7ce69e
Unified Split

Showing with 4 additions and 0 deletions.

+4 −0 R/cranlogs.R
diff --git a/R/cranlogs.R b/R/cranlogs.R
@@ -68,6 +68,10 @@ cran_downloads <- function(packages = NULL,
   r <- fromJSON(content(GET(paste0(url, interval, packages)), as = "text"),
                 simplifyVector = FALSE)
 
+  if ("error" %in% names(r) && r$error == "Invalid query") {
+    stop("Invalid query, probably invalid dates")
+  }
+
   to_df(r)
 
 }