R/zzz.R

In caravagn/evoverse.datasets: Data released in the evoverse

.onLoad <- function(libname, pkgname)
{
  # =-=-=-=-=-=-
  # Required packages will be listed here
  # =-=-=-=-=-=-
  requirements = c('pio', 'crayon')

  suppressMessages(sapply(requirements, require, character.only = TRUE))

  # =-=-=-=-=-=-
  # Package options
  # =-=-=-=-=-=-
  options(pio.string_fg_colour = crayon::bgYellow$black)

  # =-=-=-=-=-=-
  # Header
  # =-=-=-=-=-=-

  evoverse_datasets_welcome_message =  getOption('evoverse_datasets_welcome_message', default = TRUE)

  if(evoverse_datasets_welcome_message)
  {
    # pio::pioHdr('REVOLVER ~ Data package')
    # pio::pioStr("Author : ", "Giulio Caravagna <gcaravagn@gmail.com>", suffix = '\n')
    # pio::pioStr("GitHub : ", "caravagn/REVOLVER-datasets", suffix = '\n')
    # pio::pioStr("   WWW : ", "https://caravagn.github.io/REVOLVER-datasets/", suffix = '\n')
    #
    # cat(
    #   "\n > REVOLVER-datasets is part of the", crayon::green("\"evoverse\""),
    #   crayon::blue("[https://bit.ly/2orn94e]"),
    #   "- a collection of packages to implement Cancer Evolution analyses from cancer sequencing data.\n"
    # )
    #



    # pk = 'evoverse.datasets'
    # pk_l = 'Datasets released within evoverse'
    # www = "https://caravagn.github.io/evoverse.datasets/"
    # em = "gcaravagn@gmail.com"
    #
    # cli::cli_alert_success(
    #   'Loading {.field {pk}}, {.emph \'{pk_l}\'}. Support : {.url { www}}' )



    # available_data()

    options(evoverse_datasets_welcome_message = FALSE)
  }

  invisible()
}