List most recent snapshots first utils.R

Author: wlandau

R/utils.R

@@ -10,6 +10,8 @@ snapshots <- function() {
   }
   url <- "https://production.r-multiverse.org/snapshots.json"
   snapshots <- jsonlite::stream_in(gzcon(url(url)), verbose = FALSE)
+  dates <- as.Date(snapshots$snapshot)
+  snapshots <- snapshots[rev(order(dates)), ]
   cache[["snapshots"]] <- snapshots
   cache[["snapshots"]]
 }