R/startup.R

In jweile/tileseqMave: TileSeq MAVE Analysis pipeline

# Copyright (C) 2018  Jochen Weile, Roth Lab
#
# This file is part of tileseqMave.
#
# tileseqMave is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# tileseqMave is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with tileseqMave.  If not, see <https://www.gnu.org/licenses/>.

#' Generates the the startup message
startupMessage <- function() {
  #generated with 'figlet -f smslant TileseqPro'
  logo <- 
" _______ __                 ___         
/_  __(_) /__ ___ ___ ___ _/ _ \\_______ 
 / / / / / -_|_-</ -_) _ `/ ___/ __/ _ \\
/_/ /_/_/\\__/___/\\__/\\_, /_/  /_/  \\___/
                      /_/       "
  return(paste0(
    logo,"v",packageVersion("tileseqMave"),"\n"
  ))
}

#' Show message at startup
.onAttach <- function(lib, pkg)
{
  packageStartupMessage(startupMessage())      
  invisible()
}