R/zzz.R

In alteryx/jeeves: A helper for developing predictive tools in Alteryx

orderLibPaths <- function(x = .libPaths()){
  mro = grep("Microsoft", x)
  alteryx = grep("Alteryx", x)
  if ((length(mro) > 0) || (length(alteryx) > 0)){
    lp <- c(x[mro], x[alteryx], x[-c(mro, alteryx)])
  } else {
    lp <- x
  }
  createLibDir <- function(envVar){
    fpath <- file.path(Sys.getenv(envVar), 'Alteryx', 'R-library')
    if (!dir.exists(fpath)) dir.create(fpath, showWarnings = FALSE)
    if (dir.exists(fpath)) fpath else NULL
  }
  ayxPDPath <- createLibDir('ALLUSERSPROFILE')
  ayxAppDirPath <- createLibDir('APPDATA')

  c(ayxAppDirPath, ayxPDPath, lp)
}

.onLoad <- function(libname, pkgname){
  if (!('package:AlteryxRDataX' %in% search())){
    # packageStartupMessage('Setting AlteryxFullUpdate to FALSE')
    # AlteryxFullUpdate <<- FALSE
    if (.Platform$OS.type == "windows"){
      alteryx.path = "C:/Program Files/Alteryx"
      dev.dir = "Z:/SNIPPETS"
      alteryx.svndir = 'C:/Users/ramnath/Desktop/SVN_Full_Repos/Predictive_Development'
    } else {
      alteryx.path = "/Volumes/C/Program Files/Alteryx"
      alteryx.svndir = "/Volumes/C/Users/ramnath/Desktop/SVN_Full_Repos/Predictive_Development"
      dev.dir = "~/Desktop/SNIPPETS"
    }
    if (is.null(getOption('alteryx.svndir'))) {
      options(alteryx.svndir = alteryx.svndir)
    }
    if (is.null(getOption('alteryx.path'))) {
      options(alteryx.path = alteryx.path)
    }
    if (is.null(getOption('dev.dir'))) {
      options(dev.dir = dev.dir)
    }
  } else {
    # options(error = dump_and_quit)
  }
  #.libPaths(orderLibPaths())
}