don't invalidate cache in the following situation:

- some files in R/ are changed but not staged.
- non-staged changes are stashed away.
- hooks run (save Sys.time())
- stashes are restored

If the non-staged changes are in R/ or man/, the cache is invalidated because the restoring makes the modification time later than the hook run time. We avoid this by only checking the modification time of files that were staged

Author: lorenzwalthert

NEWS.md

@@ -1,3 +1,9 @@
+# precommit v0.1.0.90001
+
+- Roxygen hook cache only includes files that are part of the index and 
+  will hence be able to use the cache in cases it was previously invalidated 
+  without need (#171).
+
 # precommit v0.1.0
 
 Initial CRAN release. See https://lorenzwalthert.github.io/precommit/.

inst/WORDLIST

@@ -29,6 +29,7 @@ EOF
 exlucded
 fs
 getOption
+getwd
 gh
 github
 gitignore
@@ -46,19 +47,22 @@ knitr
 lang
 Lifecycle
 lintr
+loadCache
 lorenz
 lorenzwalthert
 macOS
 magrittr
 maxkb
 md
 miniconda
+mtime
 navbar
 netlify
 nrow
 oneliner
 os
 overscope
+packageVersion
 params
 parsable
 pkgapi
@@ -89,6 +93,7 @@ roclet
 roclets
 ropenscilabs
 roxygen
+roxygenise
 roxygenize
 RoxygenNote
 Rprofile
@@ -99,11 +104,13 @@ Rr
 Rscript
 RStudio
 rstudioapi
+saveCache
 seealso
 stderr
 stdout
 stopifnot
 styler
+Sys
 testthat
 tidyverse
 travis
@@ -115,6 +122,7 @@ usr
 VignetteBuilder
 walthert
 Walthert
+wd
 withr
 wordlist
 writeLines

inst/bin/roxygenize

@@ -38,7 +38,10 @@ wd <- list(getwd())
 cache <- loadCache(key = wd, dirs = path_relative_cache)
 
 if (!is.null(cache)) {
-  candidates <- list.files(c("R", "man"), full.names = TRUE)
+  candidates <- intersect(
+    list.files(c("R", "man"), full.names = TRUE),
+    arguments$files
+  )
   all_files <- file.info(candidates)
   last_modified <- max(all_files$mtime)
   if (last_modified > cache[[1]]) {