R/zzz.R

In natverse/fafbseg: Support Functions for Analysis of FAFB EM Segmentation

.onLoad <- function(libname, pkgname) {
  op.fafbseg=choose_segmentation('flywire31', set=FALSE)
  # set a default location for sqlite databases if user has not specified their
  # own
  op.fafbseg=c(op.fafbseg, list('fafbseg.sqlitepath'="~/projects/JanFunke/"))

  op.fafbseg=c(op.fafbseg, list('fafbseg.cachedir'=fafbseg_userdir()))
  op.fafbseg[['fafbseg.condaenv']]='r-reticulate'
  op<-options()
  toset <- !(names(op.fafbseg) %in% names(op))
  if(any(toset)) options(op.fafbseg[toset])

  # make FAFB<->FlyWire bridging registrations available
  register_fafb_flywire()

  invisible()
}

.onAttach <- function(libname, pkgname) {

  packageStartupMessage("Run dr_fafbseg() for a status report on your installation")
  invisible()
}

.onUnload <- function(libpath) {
  # check if temproot was ever called
  called <- memoise::has_cache(temproot)()
  if(called && length(dir(temproot(), include.dirs = T))) {
    if(interactive())
      message("fafbseg: removing cached skeletons")
    unlink(temproot(), recursive = TRUE)
  }
  invisible()
}