R/onAttach.R

Defines functions .onAttach

.onAttach <- function(# Internal. Message displayed when loading the package.
 libname, 
 pkgname  
){      
    # Welcome message
    if( interactive() ){ 
        svnVersion <- system.file( "SVN_VERSION", package = pkgname ) 
        
        if( svnVersion != "" ){ 
            svnVersion <- readLines( con = svnVersion )[ 1L ] 
            svnVersion <- sprintf( "(svn revision: %s)", svnVersion ) 
        }else{ 
            svnVersion <- "(svn revision: ?)" 
        }   
        
        msg <- sprintf( 
            "%s %s %s. For help type: help(pack='%s')", 
            pkgname, 
            as.character( utils::packageVersion( pkgname ) ), 
            svnVersion, 
            pkgname ) 
        
        packageStartupMessage( msg ) 
    }   
}   

Try the easyrodbcexcel package in your browser

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

easyrodbcexcel documentation built on May 2, 2019, 6:12 p.m.