R/zzz.R

In tesselle/kairos: Analysis of Chronological Patterns from Archaeological Count Data

.onLoad <- function(libname, pkgname){
  op <- options()
  op.kairos <- list(
    kairos.verbose = interactive(),
    kairos.progress = interactive()
  )
  toset <- !(names(op.kairos) %in% names(op))
  if(any(toset)) options(op.kairos[toset])

  invisible()
}