#' Set gloabl options and register plugins with openCyto on package loading
#'
#' Global options are set to NULL by default as these will not be provided to
#' mapply.
#'
#' @noRd
.onLoad <- function(libname, pkgname) {
# Turn off bell noises whilst gating
options("locatorBell" = FALSE)
# Interactive mode
options("CytoExploreR_interactive" = TRUE)
# Select active gatingTemplate
options("CytoExploreR_gatingTemplate" = NULL)
# Bypass working directory checks for external files
options("CytoExploreR_wd_check" = TRUE)
# Signals args called to cyto_plot - check if call is made twice
options("cyto_plot_call" = NULL)
# Signals if plots match in flowSet method
options("cyto_plot_match" = NULL)
# Create custom theme for cyto_plot
options("cyto_plot_theme" = NULL)
# Signal cyto_plot_save method has been called
options("cyto_plot_save" = FALSE)
# Signal which cyto_plot method has been called
options("cyto_plot_method" = NULL)
# Signal if a custom plot is being contructed - require cyto_plot_complete
options("cyto_plot_custom" = FALSE)
# Signal when cyto_plot_grid method is being called
options("cyto_plot_grid" = FALSE)
# Save label co-ordinates as list
options("cyto_plot_label_coords" = NULL)
# Use scattermore in cyto_plot
options("cyto_plot_fast" = FALSE)
# Register gating and preprocessing functions with openCyto
suppressMessages({
openCyto::register_plugins(fun = .cyto_gate_manual,
methodName = "cyto_gate_manual")
openCyto::register_plugins(fun = .cyto_gate_draw,
methodName = "cyto_gate_draw")
openCyto::register_plugins(fun = .pp_cyto_gate_draw,
methodName = "pp_cyto_gate_draw",
dep = NA, "preprocessing")
})
}
# # Docker Message
# .onAttach <- function(libname, pkgname){
# packageStartupMessage("CytoExploreR Docker v1.0.5")
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.