R/package.R

In escapeR: Escape Room Adventures for Learning R in Ecological Statistics

#' escapeR: escape room adventures for learning R
#'
#' Load the package, then enter a room by calling
#' [escape()] explicitly.
#'
#' To learn how to play, see `vignette("getting-started-with-escapeR",
#' package = "escapeR")`. To create themed rooms or contributor room packs, see
#' `vignette("creating-themed-escape-rooms", package = "escapeR")`.
"_PACKAGE"

.onAttach <- function(libname, pkgname) {
  if (!interactive()) {
    return(invisible())
  }

  packageStartupMessage("Welcome to escapeR.")
  packageStartupMessage("A virtual ecological statistics lab door is locked. Unfortunately, you are on the inside! And there are many pressing conservation problems outside you need to start working on. R might just be the key to get started solving them.")
  packageStartupMessage("Run escape() to begin or resume your game.")
}