R/start.R

In ICTatRTI/PersonAlytics: Analytics for N-of-1 and small N intensive longitudinal designs, idiographic clinical trials (ICT), and interrupted time series

PersonAlyticsStartupMessage <- function()
{
  # https://www.askapache.com/online-tools/figlet-ascii/
  msg <- c(paste0(
"
'||'''|,
 ||   ||
 ||...|' .|''|, '||''| ('''' .|''|, `||''|,
 ||      ||..||  ||     `'') ||  ||  ||  ||  ====
.||      `|...  .||.   `...' `|..|' .||  ||.

         /.\      '||`            ||
        // \\      ||             ||     ''
       //...\\     ||  '||  ||` ''||''   ||  .|'', (''''
      //     \\    ||   `|..||    ||     ||  ||     `'')
    .//       \\. .||.      ||    `|..' .||. `|..' `...'
                        ,  |'
                        ''

Version ",
packageVersion("PersonAlytics")),
"\n\nType 'citation(\"PersonAlytics\")' for citing this R package in publications.",
"\n\nType 'vignette(\"PersonAlytics_Users_Guide\")' for the user's guide.\n")
  return(msg)
}


.onAttach <- function(lib, pkg)
{
  msg <- PersonAlyticsStartupMessage()
  if(!interactive())
    msg[1] <- paste("Package 'PersonAlytics' version", packageVersion("PersonAlytics"))
  packageStartupMessage(msg)
  invisible()
}