R/zzz.R

In bupaR: Business Process Analysis in R

load <- c("edeaR", "eventdataR","processmapR","xesreadR", "processmonitR", "petrinetR")

.onAttach <- function(...) {


	needed <- load[!is_attached(load)]

	if (length(needed) == 0)
		return()

	suppressMessages({
	suppressWarnings({
		needed_installed <- ((sapply(needed, require, character.only = TRUE, warn.conflicts = FALSE)))
	})})
	# no_installed <- needed[!needed_installed]
	#
	# if(length(no_installed) > 0) {
	# 	packageStartupMessage(paste0("bupaR works best with the following package(s) installed: ", toString(no_installed),
	# 								 ". \nDo you want to install these?\n"))
	# 	answer <- readline("Y/N: ")
	#
	# 	if(answer == "Y"){
	# 		map(no_installed, ~install.packages(.x))
	# 	}
	#
	# 	if(answer == "Y"){
	# 		suppressWarnings(suppressPackageStartupMessages(sapply(no_installed, require, character.only = TRUE, warn.conflicts = FALSE)))
	# 	}
	# }


}

.onLoad <- function(libname, pkgname) {
	allowed_lifecycles <- c("schedule","assign","reassign","start","suspend","resume","abort_activity","abort_case","complete","manualskip","autoskip")
	assign("allowed_lifecycles", allowed_lifecycles, envir = parent.env(environment()))
}

is_attached <- function(x) {
	paste0("package:", x) %in% search()
}