hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updating startup message

Browse Source
This commit is contained in:
Zoltan BARCZA 2023-02-08 10:35:08 +01:00
parent b0c3b4e9cf
commit d33bda5f98
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
RBBGCMuso/R/atStart.R
View File

@ -1,7 +1,20 @@
printback <- function(text,color){
cat(sprintf("\033[%dm%s\033[0m\n",color,text))
}
colorText <- function(text,color){
sprintf("\033[%dm%s\033[0m",color,text)
}
.onLoad <- function(libname,pkgname){ .onLoad <- function(libname,pkgname){
RMuso_version <- 7 RMuso_version <- 7
cat(sprintf("This is RBBGCMuso version 1.0\nDefault Biome-BGCMuSo version: %d", cat(sprintf('This is RBBGCMuso version 1.0\nDefault Biome-BGCMuSo version: %d\n',
RMuso_version)) RMuso_version))
cat('Thanks for using RBBGCMuso!\n')
cat('For quick tutorial visit https://github.com/hollorol/RBBGCMuso\n')
cat(sprintf('For help, issue the command: %s\n',colorText('help(package="RBBGCMuso")',104)))
cat('In order to get a sample simulation package use the copyMusoExample() command\n')
RMuso_constMatrix <- list(epc=NULL,soil=NULL) RMuso_constMatrix <- list(epc=NULL,soil=NULL)
RMuso_varTable <- list() RMuso_varTable <- list()
#___________________________ #___________________________
@ -34,3 +47,4 @@
) )
# getOption("RMuso_constMatrix")$soil[[as.character(getOption("RMuso_version"))]] # getOption("RMuso_constMatrix")$soil[[as.character(getOption("RMuso_version"))]]
} }
cat("\033[41mdfa\033[m")