swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: 1c016a1d9d1dc7690f7c256204f737661d261cb0 authored by jmc on 20 September 2007, 00:00:00 UTC
version 0.96
version 0.96
Tip revision: 1c016a1
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")
}
}
}