From 643ad7f0b56661b7e2548514f4745c0108a9d2e2 Mon Sep 17 00:00:00 2001 From: Craig Williams Date: Thu, 30 Jan 2025 11:14:13 +0000 Subject: [PATCH] Fixed timestamp check on downloaded files --- R/fetch_available_archives.R | 4 ++-- R/fetch_available_packages.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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) }