R/zzz.R

zzz <- new.env()
zzz$prompt <- " "

.onLoad <- function (libname, pkgname) {
  zzz$prompt <- options(prompt = "[threaded] > ")
}

.onUnload <- function (libpath) {
  options(prompt = zzz$prompt)
}
lbartnik/thread documentation built on May 20, 2019, 8:27 p.m.