appr-neocache-example.R

library(aPPR)
library(neocache)
library(logger)
library(here)
library(glue)
library(readr)

set.seed(27)

log_appender(
  appender_file(
    here("logs/appr.log")
  ),
  namespace = "aPPR"
)

log_threshold(TRACE, namespace = "aPPR")

log_appender(
  appender_file(
    here("logs/neocache.log")
  ),
  namespace = "neocache"
)

log_threshold(TRACE, namespace = "neocache")

seeds <- c("omaclaren", "Corey_Yanofsky")

tracker <- appr(
  neocache_graph(),
  seed = seeds,
  epsilon = 1e-6
)

path <- here(glue("data/ppr-{paste(seeds, collapse = '-')}.rds"))

write_rds(path, tracker)