R/zzz.R

.onAttach <- function(lib, pkg){
		
		# versionString <- "eat version 2.1.10 (2014-10-20) -- \"Ginormous Phoenix\""
		versionString <- "eat version 2.1.11 (2014-12-10)"
		
		eV <- eatVersion()
		
		# Anzahl an "=" bestimmen
		l <- sapply ( cbind ( rownames (eV) , eV , stringsAsFactors = FALSE ) , nchar , simplify = FALSE )
		names ( l )[1] <- ""
		l <- sum ( mapply ( function ( l , n ) max ( c ( l , nchar ( n ) ) ) , l , names ( l ) ) ) + ncol ( eV )
		
		l2 <- max ( c ( l , nchar ( versionString ) ) )
		
		streifen <-  paste ( rep ( "=" , l2 ) , collapse = "" )
		welcomeMsg <- paste ( "\n" , streifen , "\n" , versionString , "\n" , streifen , "\n" , eatDesign:::dfr2text( eV,blankRowNames = TRUE ) , streifen , "\n" , sep = "" )
		
		packageStartupMessage ( welcomeMsg )

		invisible ( welcomeMsg )
}

Try the eat package in your browser

Any scripts or data that you put into this service are public.

eat documentation built on May 2, 2019, 5:47 p.m.