cache everything to disc #133 opems #236

DESCRIPTION

@@ -76,7 +76,8 @@ Imports:
     vctrs,
     memoise,
     promises,
-    future
+    future,
+    cachem
 Suggests:
     testthat,
     subugoetheme,

R/pretest.R

@@ -57,8 +57,8 @@ tabulate_metacheckable <- function(x, ...) {
     # https://github.com/subugoe/metacheck/issues/169
     `unique` = lazily(purrr::negate(duplicated))(x, `not_missing`),
     `within_limits` = lazily(is_in_limit, ...)(x, `unique`),
-    `doi_org_found` = lazily(biblids::is_doi_found)(x, `within_limits`),
-    `from_cr` = lazily(biblids::is_doi_from_ra, "Crossref")(x, `doi_org_found`),
+    `doi_org_found` = lazily(memoised_is_doi_found)(x, `within_limits`),
+    `from_cr` = lazily(memoised_is_doi_from_ra, "Crossref")(x, `doi_org_found`),
     # should singl header first https://github.com/subugoe/metacheck/issues/176
     `cr_md` = lazily(is_doi_cr_md)(x, `from_cr`),
     `article` = lazily(is_doi_cr_type, "journal-article")(x, `cr_md`),

R/zzz.R

@@ -1,5 +1,39 @@
 .onLoad <- function(libname, pkgname) {
   # for details see import.R
-  memoised_cr_works <<- memoise::memoise(insistently_cr_works)
-  memoised_possibly_cr_works_field <<- memoise::memoise(possibly_cr_works_field)
+  memoised_cr_works <<- memoise::memoise(
+    insistently_cr_works,
+    cache = cache_api()
+  )
+  memoised_possibly_cr_works_field <<- memoise::memoise(
+    possibly_cr_works_field,
+    cache = cache_api()
+  )
+  # also cache biblids calls to disc if possible
+  # pretty bad hack, because this makes it double memoised
+  memoised_is_doi_found <<- memoise::memoise(
+    biblids::is_doi_found,
+    cache = cache_api()
+  )
+  memoised_is_doi_from_ra <<- memoise::memoise(
+    biblids::is_doi_from_ra,
+    cache = cache_api()
+  )
+}
+
+#' Conditionally set a cache which can be reused across sessions
+#' Helpful for testing, vignettes, etc.
+#' @noRd
+cache_api <- function() {
+  # TODO this should be removed when using BigQuery 
+  # https://github.com/subugoe/metacheck/issues/236
+  if (fs::dir_exists("~")) {
+    # this should only work on unix compliant systems
+    cachem::cache_disk(
+      dir = "~/.metacheck-cache",
+      max_age = 60 * 60 * 24 * 31,
+      destroy_on_finalize = FALSE
+    )
+  } else {
+    cachem::cache_mem()
+  }
 }