R/zzz.R

In selesnow/timeperiodsR: Simple Definition Of Time Intervals

.onAttach <- function(lib, pkg,...){
  packageStartupMessage(timeperiodsRWelcomeMessage())
}

#
#

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


.onLoad <- function(libname, pkgname) {
  
  # read variables
  official_day_offs         <- Sys.getenv("TPR_DAY_OFFS")
  official_day_offs_country <- Sys.getenv("TPR_COUNTRY")
  official_day_offs_pre     <- Sys.getenv("TPR_PRE")
  custom_day_offs           <- Sys.getenv("TPR_CUSTOM_DAY_OFFS")
  
  # check variables
  if ( official_day_offs == "" )         official_day_offs <- FALSE
  if ( official_day_offs_country == "" ) official_day_offs_country <- "ru"
  if ( official_day_offs_pre == "" )     official_day_offs_pre <- 0
  if ( custom_day_offs == "" )  {
    custom_day_offs <- NULL
  } else {
    custom_day_offs <- as.Date(unlist(strsplit(custom_day_offs, ";|,")))
  }
  
  op <- options()
  op.timeperiodsR <- list(timeperiodsR.official_day_offs         = as.logical(official_day_offs),
                          timeperiodsR.official_day_offs_country = official_day_offs_country,
                          timeperiodsR.official_day_offs_pre     = official_day_offs_pre,
                          timeperiodsR.custom_day_offs           = custom_day_offs,
                          timeperiodsR.parts                     = c("all", 
                                                                     "start", 
                                                                     "end", 
                                                                     "sequence", 
                                                                     "workdays", 
                                                                     "weekends", 
                                                                     "first_workday", 
                                                                     "last_workday", 
                                                                     "first_weekend",
                                                                     "last_weekend", 
                                                                     "length",
                                                                     "dayoffs_marks", 
                                                                     "official_day_offs",
                                                                     "official_workdays", 
                                                                     "official_first_workday",
                                                                     "official_last_workday", 
                                                                     "custom_day_offs"))
  
  toset <- !(names(op.timeperiodsR) %in% names(op))
  if (any(toset)) options(op.timeperiodsR[toset])
  
  invisible()
}