run-appr-with-logging.R

library(aPPR)
library(logger)

set.seed(26)

log_appender(
  appender_file(
    "/paper/to/logfile.log"  ## TODO: choose a path to log to
  ),
  namespace = "aPPR"
)

log_threshold(TRACE, namespace = "aPPR")

tracker <- appr(
  rtweet_graph(),
  seed = c("hadleywickham", "gvanrossum"),
  epsilon = 1e-6
)