R/zzz.R

In djpr-data/djprshiny: Common Functions For DJPR Shiny Apps

.onLoad <- function(libname, pkgname) {
  shiny::addResourcePath("djprshiny", system.file("www", package = "djprshiny"))

  if (requireNamespace("memoise")) {
    cache_dir <- ifelse(dir.exists("app-cache"),
      "app-cache",
      tempdir()
    )

    djpr_girafe <<- memoise::memoise(djpr_girafe,
      cache = cachem::cache_disk(dir = cache_dir)
    )
  }
}