R/onLoad.r

In leeper/MTurkR: R Client for the MTurk Requester API

.onLoad <- function(libname, pkgname){
    if (is.null(getOption("MTurkR.logdir"))) {
        options(MTurkR.logdir = getwd())    # MTurkRlog.tsv directory
    }
    if (is.null(getOption("MTurkR.sandbox"))) {
        options(MTurkR.sandbox = FALSE)     # sandbox logical
    }
    if (is.null(getOption("MTurkR.verbose"))) {
        options(MTurkR.verbose = TRUE)      # print logical
    }
    if (is.null(getOption("MTurkR.browser"))) {
        options(MTurkR.browser = FALSE)     # browser logical
    }
    if (is.null(getOption("MTurkR.log"))) {
        options(MTurkR.log = TRUE)          # log logical
    }
    if (is.null(getOption("MTurkR.test"))) {
        options(MTurkR.test = FALSE)        # validation.test logical
    }
}

.onAttach <- function(libname, pkgname) {
    if (Sys.getenv("AWS_ACCESS_KEY_ID") == "") {
        packageStartupMessage("Environment variable AWS_ACCESS_KEY_ID not set!")
    }
    if (Sys.getenv("AWS_SECRET_ACCESS_KEY") == "") {
        packageStartupMessage("Environment variable AWS_SECRET_ACCESS_KEY not set!")
    }
}