R/Install.R

In EmilBode/EmilMisc: Miscellaneous Functions I Found Useful

.onAttach <- function(libname, pkgname) {
  if(identical(NA, getOption('checkMasking_Allowed', default=NA))) {
    options(checkMasking_Allowed=data.frame(
      name=c('src', 'n', 'par','FunctionNameThatServesAsAnExample'),
      env=c('.GlobalEnv', '.GlobalEnv', '.GlobalEnv','any')))
  }
  cma <- getOption('checkMasking_Allowed')
  cma <- data.frame(lapply(cma, as.character), stringsAsFactors = FALSE)
  cma[nrow(cma)+1,] <- c('stop','package:EmilMisc')
  options(checkMasking_Allowed=cma)
  if(is.null(getOption('envpushnames'))) {
    options(envpushnames='OrigGlobal')
  }
  rm(cma)
  environment(write.table) <- environment(utils::write.table)
}

.onAttach()
myfun <- function(x, y, someopt=T, ...) {
  return(function(a,b) {x+y+a+b})
}
newfun <- myfun(1e6, 1e4)
if(F) {
  nargs <- function() {
    fun <- get('nargs')
    if(identical(environment(fun), parent.env(environment()))) {
      return(do.call(base::nargs, args=list(), envir = parent.frame()))
    } else {
      return(do.call(fun, list(), envir=parent.frame()))
    }
  }
  `<<-` <- function(x, value) {get('<<-')(x, value)}
}