[R] DiagnosisMed package corrupt?

[Daryl Morris]

Hi,

I was borrowing someone's code today, and they were using the package 
DiagnosisMed. I downloaded the package using the built-in package 
installer in the GUI (R 2.12.1 running on Mac OS 10.6.5). The package 
manager lists the following information: ‘DiagnosisMed’ version 0.2.3

Every time I attempted to load the package, I subsequently had R hang. 
The same commands which would cause the hanging after loading the 
package worked without a hitch when I didn't load the package.

Actually, after I wrote that last sentence I tried starting R from 
scratch, loading the package, and then typing 2+2.

This was my result:

 > library(DiagnosisMed)
Loading required package: epitools
Loading required package: TeachingDemos
Loading required package: tcltk
Loading Tcl/Tk interface ...
 > 2+2
Loading required package: tcltk

*** caught segfault ***
address 0x41002109, cause 'memory not mapped'

Traceback:
1: sys.nframe()
2: dynGet("__NameSpacesLoading__", NULL)
3: loadNamespace(package, c(which.lib.loc, lib.loc), keep.source = 
keep.source)
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: tryCatch(expr, error = function(e) { call <- conditionCall(e) if 
(!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- 
sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", 
dcall, ": ") LONG <- 75L msg <- conditionMessage(e) sm <- strsplit(msg, 
"\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = 
"w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
type = "b") if (w > LONG) prefix <- paste(prefix, "\n ", sep = "") } 
else prefix <- "Error : " msg <- paste(prefix, conditionMessage(e), 
"\n", sep = "") .Internal(seterrmessage(msg[1L])) if (!silent && 
identical(getOption("show.error.messages"), TRUE)) { cat(msg, file = 
stderr()) .Internal(printDeferredWarnings()) } invisible(structure(msg, 
class = "try-error"))})
8: try({ ns <- loadNamespace(package, c(which.lib.loc, lib.loc), 
keep.source = keep.source) dataPath <- file.path(which.lib.loc, package, 
"data") env <- attachNamespace(ns, pos = pos, dataPath = dataPath, deps)})
9: library(pkg, character.only = TRUE, logical.return = TRUE, lib.loc = 
lib.loc)
10: .getRequiredPackages2(pkgInfo, quietly = quietly)
11: library(DiagnosisMed)

Possible actions:
1: abort (with core dump, if enabled)
2: normal R exit
3: exit R without saving workspace
4: exit R saving workspace


I have a workaround. But I just thought I'd report it anyways.

thanks, Daryl Morris
FHCRC, SCHARP, UW Biostatistics