diff --git a/R/fetch_available_archives.R b/R/fetch_available_archives.R index d9e3201..ad8d0d6 100644 --- a/R/fetch_available_archives.R +++ b/R/fetch_available_archives.R @@ -30,7 +30,7 @@ fn <- ".pacman/archive.rds" dist_fn <- ".pacman/archive_dist.rds" if (file.exists(dist_fn)) { - ts <- as.POSIXct("1970-01-01 00:00:00", tz = "GMT") + as.numeric(Sys.Date() + 1) * 86400 + ts <- as.POSIXct("1970-01-01 00:00:00", tz = "GMT") + as.numeric(Sys.Date() - 1) * 86400 if (refetch || (ts < file.mtime(dist_fn))) { unlink(dist_fn) unlink(fn) @@ -61,4 +61,4 @@ fetch_available_archives <- function(refetch = FALSE) { warning = function(e) list(), error = function(e) list() ) -} \ No newline at end of file +} diff --git a/R/fetch_available_packages.R b/R/fetch_available_packages.R index f0f8647..56f5dd1 100644 --- a/R/fetch_available_packages.R +++ b/R/fetch_available_packages.R @@ -4,7 +4,7 @@ check_pacman_dir() fn <- ".pacman/packages.rds" if (file.exists(fn)) { - ts <- as.POSIXct("1970-01-01 00:00:00", tz = "GMT") + as.numeric(Sys.Date() + 1) * 86400 + ts <- as.POSIXct("1970-01-01 00:00:00", tz = "GMT") + as.numeric(Sys.Date() - 1) * 86400 if (refetch || (ts < file.mtime(fn))) { unlink(fn) }