Nothing
.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 )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.