R/zzz.R

Defines functions .onAttach

# Added to make nice with devtools
.datatable.aware=TRUE

.onAttach <- function( libname, pkgname ) {

  suppressWarnings( try( v <- utils::packageVersion(pkgname, libname), silent = TRUE ))
  version <- if( exists('v') ) paste0("-", v ) else ""

  dt <- read.dcf( system.file("DESCRIPTION", package = pkgname ), "Date" )
  yr <- substr(dt,1,4)

  if( interactive() )
    packageStartupMessage(
        pkgname
      , version
      , ifelse( ! is.na(dt), paste0(' (',dt,')'), '' )
      , " - Copyright \u00a9 ", ifelse(! is.na(yr), yr, '')
      , " Decision Patterns"
      , domain = NA
    )

  # Set up defaults
  options( datatable.print.keys=TRUE, datatable.print.class=TRUE )

}
decisionpatterns/data.table.plus documentation built on June 15, 2020, 10:26 p.m.