R/zzz.R

In ShashankKumbhare/paramonteR: Plain Powerful Parallel Monte Carlo Library

####################################################################################################################################
################################## printBanner  ####################################################################################
# >>
printBanner = function() {

    bannerPath      = paste( system.file("paramonteBanner.txt", package = "paramonte") )
    paramonteBanner = readLines(bannerPath)
    writeLines(paramonteBanner)

    # pm = paramonte_class$new()
    # assign( "pm", pm, envir = globalenv() )

}
# <<
################################## printBanner  ####################################################################################
####################################################################################################################################


# ####################################################################################################################################
# ################################## Initializing paramonte library  #################################################################
# # >>
# # printBanner()                                                                                            # >> print paramonte banner
#
# # Err = Err_class$new(); tab = Err$tab; Err$prefix = "paramonte"
# #
# # Err$box = paste( "'paramonte' library is ready.", "\n",                                       # >> print 'paramonte' library message
# #                  "\n",
# #                  tab, "To instantiate paramonte object try:", "\n",
# #                  "\n",
# #                  tab, tab, "pm = paramonte()", "\n",
# #                  sep = "" )
# # <<
# ################################## Initializing paramonte library  #################################################################
# ####################################################################################################################################


####################################################################################################################################
################################## .onLoad  ########################################################################################
# >>
.onLoad <- function(libname, pkgname){
    printBanner()
    # pm = paramonte_class$new()
}
# <<
################################## .onLoad  ########################################################################################
####################################################################################################################################