swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: e3fb24ebd97f7686caee78bcef4e558b908a465e authored by jmc on 01 December 2007, 00:00:00 UTC
version 0.97-1
version 0.97-1
Tip revision: e3fb24e
zzz.R
.requireSilent <- function(what) {
tryCatch(require(what, quietly = TRUE, character.only = TRUE),
warning = function(cond) FALSE,
error = function(cond) FALSE)
}
.hasRSPerl <- FALSE
.onLoad <- function(libname, pkgname) {
if(.requireSilent("RSPerl")) {
.hasRSPerl <<- TRUE
perlFiles <- readLines(system.file("Perl/perlFiles.txt", package = "SoDA"))
for(file in perlFiles) {
ex <- try(.PerlFile(system.file("Perl", file, package = "SoDA")))
if(is(ex, "try-error"))
warning("error in running Perl file ", file, "; some Perl subroutines may be missing")
}
}
}