R/zzz.R

In gbradburd/bedassle: Quantifies Effects of Geographic and Ecological Distance on Genetic Differentiation

.onLoad <- function(libname, pkgname) {
  modules <- paste0("stan_fit4", names(stanmodels), "_mod")
  for (m in modules) loadModule(m, what = TRUE)
}

.onAttach <- function(libname, pkgname){
art <- 
c(
"                                                                          *            ",
"                                                                        / |            ",
"                                                                       @ @             ",
"                 ,%@@@@@@@#    ,*//**,*(@@@@&              @@        &@ @              ",
"            @@                                @&           @  /@&   @ /@               ",
"               @@@%                             @           @%  %%@& @@                ",
"                @@@@@&                          ,@     @@  @@,      @%                 ",
"                  /@@@@@@                       .@   @   @@           (@               ",
"                   @@                           @  .@   @#               @(            ",
"                      &@@@@                     @,   @  @     @            @@          ",
"                      @(                        @& @@  @#     @(        #@   @         ",
"                      *@@@@@@@@@@@               @/@%  @,        &@@@@@@@(@@@,         ",
"                            @&                   @ &@  @(        &&                    ",
"                           @@@#,.                 @@   %@         @(                   ",
"                             %@                   ,@@   @          ,@                  ",
"                              &@@@@%                @@  @            @/                ",
"                                @                      @@(            @@               ",
"                                  ./@@                     @           @               ",
"                                  @@                     /@            @               ",
"                                        @            @@&               @(              ",
"                                       @.              @               @#    %@%       ",
"                                   %@@@@@@@            @                               ",
"                               %@(         @          @                        @.      ",
"                             @@             @@    @@@           @%    @@@@.,@ @        ",
"                            @                                    @@&       @.@%        ",
"                    .#(    @                                       @      @# @         ",
"                 @&       @&                                    .@    @@@@ @@          ",
"                @       *#@               @@                  @@      @  @,            ",
"                @    %@   @                 @             .@@         @@@              ",
"                @   @@    &&                /%       .@@@.                             ",
"                @   @      ,@               @@@@@#                                     ",
"               @&  @,         @@%           @*                                         ",
"	            @   @              @#        @                                          ",
"              @    @               @.      @@                                          ",
"            &@    @&               &&     @,                                           ",
"           @      @                @(    @                                             ",
"   @#  ,@@   @@   @                @    @,                                             ",
"      &@@@@&@    @@                @     @                                             ",
"              @@@                  @@     @@                                           ",
"                                      @@@   ,@@                                        ",
"                                          @@/   &@                                     ",
"                                              @@(@@                                    ",
"                                               #%  #@                                  ",
"                                                @@@@@                                  ",
"   																				    		",
"   																				    		"
)
	art <- paste0(art,collapse="\n")
	packageStartupMessage(art,appendLF=TRUE)
}