R/zzz.R

In coursekata: Packages and Functions for 'CourseKata' Courses

.onAttach <- function(...) {
  attached <- coursekata_attach(
    do_not_ask = !interactive() || interactive() && quickstart(),
    quietly = getOption("coursekata.quiet", FALSE) || quickstart()
  )

  coursekata_load_theme()
  if (!quickstart()) {
    rlang::inform(coursekata_attach_message(attached), class = "packageStartupMessage")
  }
}

quickstart <- function() {
  getOption("coursekata.quickstart", FALSE) ||
    !interactive() && identical(Sys.getenv("DEVTOOLS_LOAD"), "coursekata")
}