R/zzz.R

In DillonHammill/CytoRSuite: Compensation, Gating & Visualisation Toolkit for Analysis of Flow Cytometry Data

#' Automatically register ppdrawGate, drawGate and manualGate with openCyto upon
#' loading package...
#'
#' @noRd
.onLoad <- function(libname, pkgname) {
  options("locatorBell" = FALSE)
  options("CytoRSuite_interact" = interactive())
  options("CytoRSuite_wd_check" = TRUE)
  options("CytoRSuite_overlay_display" = TRUE)
  openCyto::registerPlugins(fun = .gate_manual, 
                            methodName = "gate_manual")
  openCyto::registerPlugins(fun = .gate_draw, 
                            methodName = "gate_draw")
  openCyto::registerPlugins(fun = .pp_gate_draw, 
                            methodName = "pp_gate_draw", 
                            dep = NA, "preprocessing")
}