R/Rpacman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed timestamp check on downloaded files

Browse Source
This commit is contained in:
Craig Williams
2025-01-30 11:14:13 +00:00
parent 8773ddb195
commit 643ad7f0b5
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/fetch_available_archives.R
View File

@@ -30,7 +30,7 @@
fn <- ".pacman/archive.rds" fn <- ".pacman/archive.rds"
dist_fn <- ".pacman/archive_dist.rds" dist_fn <- ".pacman/archive_dist.rds"
if (file.exists(dist_fn)) { 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))) { if (refetch || (ts < file.mtime(dist_fn))) {
unlink(dist_fn) unlink(dist_fn)
unlink(fn) unlink(fn)
@@ -61,4 +61,4 @@ fetch_available_archives <- function(refetch = FALSE) {
warning = function(e) list(), warning = function(e) list(),
error = function(e) list() error = function(e) list()
) )
} }

2
R/fetch_available_packages.R
View File

@@ -4,7 +4,7 @@
check_pacman_dir() check_pacman_dir()
fn <- ".pacman/packages.rds" fn <- ".pacman/packages.rds"
if (file.exists(fn)) { 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))) { if (refetch || (ts < file.mtime(fn))) {
unlink(fn) unlink(fn)
} }