1## we "need" S4 methods for dispatch on both (x,y) .noGenerics <- TRUE 2.conflicts.OK <- TRUE 3 4## gmp-ify base function(s): 5environment(outer) <- environment()# i.e. asNamespace("gmp") 6 7.gmpVersion <- function() .Call(R_gmp_get_version) 8gmpVersion <- function() 9 numeric_version(sub("^([0-9]+\\.[0-9]+\\.[0-9]+).*","\\1", .gmpVersion())) 10 11.onLoad <- function(libname, pkgname) { 12 options("gmp:warnModMismatch" = TRUE, ## see ../man/biginteger.Rd 13 "gmp:warnNoInv" = TRUE) ## ../man/add.biginteger.Rd | ../src/bigmod.cc 14 15 ## as.big[zq]() need package dynloaded : 16 gmpEnv <- parent.env(environment()) 17 gmpEnv$ NA_bigz_ <- as.bigz(NA) 18 gmpEnv$ NA_bigq_ <- as.bigq(NA) 19 invisible() 20} 21 22 23