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

Fixed package and archive file timestamp check

Browse Source
This commit is contained in:
Craig Williams
2025-01-30 11:29:10 +00:00
parent 8773ddb195
commit 36f6ef2020
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
DESCRIPTION
View File

@@ -1,8 +1,8 @@
Package: Rpacman
Type: Package
Title: Very simple package manager for R
Version: 1.0.13
Date: 2022-05-31
Version: 1.0.14
Date: 2025-01-30
Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre"))
URL: https://avsdev.uk/R/Rpacman
Description: Very simple package manager for R which allows scanning for used packages, finding their dependencies and versions, creating a lock file and installing the packages on a new build.

4
R/fetch_available_archives.R
View File

@@ -30,8 +30,8 @@
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
if (refetch || (ts < file.mtime(dist_fn))) {
ts <- as.POSIXct("1970-01-01 00:00:00", tz = "GMT") + as.numeric(Sys.Date()) * 86400
if (refetch || (ts > file.mtime(dist_fn))) {
unlink(dist_fn)
unlink(fn)
}

6
R/fetch_available_packages.R
View File

@@ -4,8 +4,8 @@
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
if (refetch || (ts < file.mtime(fn))) {
ts <- as.POSIXct("1970-01-01 00:00:00", tz = "GMT") + as.numeric(Sys.Date()) * 86400
if (refetch || (ts > file.mtime(fn))) {
unlink(fn)
}
}
@@ -38,4 +38,4 @@ fetch_available_packages <- function(refetch = FALSE) {
warning = function(e) list(),
error = function(e) list()
)
}
}