R/Legend.R

In OHDSI/Legend: Large-Scale Evidence Generation and Evaluation in a Network of Databases

# Copyright 2018 Observational Health Data Sciences and Informatics
#
# This file is part of Legend
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

#' Legend
#'
#' @docType package
#' @name Legend
#' @import DatabaseConnector
#' @importFrom grDevices rgb
#' @importFrom stats aggregate density pnorm qnorm quantile
#' @importFrom utils write.csv read.csv setTxtProgressBar txtProgressBar write.table
NULL

.onLoad <- function(libname, pkgname) {
    missing(libname)  # suppresses R CMD check note
    missing(pkgname)  # suppresses R CMD check note
    # Copied this from the ff package:
    if (is.null(getOption("ffmaxbytes"))) {
        # memory.limit is windows specific
        if (.Platform$OS.type == "windows") {
            if (getRversion() >= "2.6.0")
                options(ffmaxbytes = 0.5 * utils::memory.limit() * (1024^2)) else options(ffmaxbytes = 0.5 * utils::memory.limit())
        } else {
            # some magic constant
            options(ffmaxbytes = 0.5 * 1024^3)
        }
    }

    # Workaround for problem with ff on machines with lots of memory (see
    # https://github.com/edwindj/ffbase/issues/37)
    options(ffmaxbytes = min(getOption("ffmaxbytes"), .Machine$integer.max * 12))
}