R/zzz.R

In ractivecampaign: Loading Data from 'ActiveCampaign API v3'

.onAttach <- function(lib, pkg,...){

  packageStartupMessage(ractivecampaignWelcomeMessage())

}

.onLoad <- function(libname, pkgname) {

  op <- options()

  op.ractivecampaig <- list(
    ractivecampaig.max_tries = 15,
    ractivecampaig.interval  = 10
  )

  toset <- !(names(op.ractivecampaig) %in% names(op))
  if (any(toset)) options(op.ractivecampaig[toset])

  invisible()

}


ractivecampaignWelcomeMessage <- function(){
  # library(utils)

  paste0("\n",
         "---------------------\n",
         "Welcome to ractivecampaign version ", utils::packageDescription("ractivecampaign")$Version, "\n",
         "\n",
         "Author:           Alexey Seleznev (Head of analytics dept at Netpeak).\n",
         "Telegram channel: https://t.me/R4marketing \n",
         "YouTube channel:  https://www.youtube.com/R4marketing/?sub_confirmation=1 \n",
         "Email:            selesnow@gmail.com\n",
         "Site:             https://selesnow.github.io \n",
         "Blog:             https://alexeyseleznev.wordpress.com \n",
         "Facebook:         https://facebook.com/selesnown \n",
         "Linkedin:         https://www.linkedin.com/in/selesnow \n",
         "\n",
         "Type ?ractivecampaign for the main documentation.\n",
         "The github page is: https://github.com/selesnow/ractivecampaign/\n",
         "\n",
         "Suggestions and bug-reports can be submitted at: https://github.com/selesnow/ractivecampaign/issues\n",
         "Or contact: <selesnow@gmail.com>\n",
         "\n",
         "\tTo suppress this message use:  ", "suppressPackageStartupMessages(library(ractivecampaign))\n",
         "---------------------\n"
  )
}