R/zzz.R

In PolicyAnalysisInc/heRoMod: Health Economic Modeling

#**************************************************************************
#* 
#* Original work Copyright (C) 2016  Antoine Pierucci
#* Modified work Copyright (C) 2017  Matt Wiener
#*
#* This program is free software: you can redistribute it and/or modify
#* it under the terms of the GNU General Public License as published by
#* the Free Software Foundation, either version 3 of the License, or
#* (at your option) any later version.
#*
#* This program is distributed in the hope that it will be useful,
#* but WITHOUT ANY WARRANTY; without even the implied warranty of
#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#* GNU General Public License for more details.
#*
#* You should have received a copy of the GNU General Public License
#* along with this program.  If not, see <http://www.gnu.org/licenses/>.
#**************************************************************************


.onLoad <- function(libname, pkgname) {
  op <- options()
  op.heRomod <- list(
    heRomod.verbose = FALSE,
    heRomod.memotime = 3600,
    heRomod.inf_parameter = "stop"
  )
  toset <- !(names(op.heRomod) %in% names(op))
  if(any(toset)) options(op.heRomod[toset])
  
  invisible()
}