I believe there is an error in the summary.warnings function (typically called
via 'summary(warnings())'). Below is a minimal working example:
#########
testfunction <- function(x){
if(x > 30){
warning("A big problem (should be 20 of these)")
}else{
warning("Bigger problem (should be 30 of these)")
}
}
for(i in 1:50){
testfunction(i)
}
summary(warnings())
#########
I checked the code for summary.warnings:
function (object, ...)
{
msgs <- names(object)
calls <- as.character(object)
ss <- ": "
c.m. <- paste(calls, msgs, sep = ss)
if (length(i.no.call <- which(calls == "NULL")))
c.m.[i.no.call] <- substr(c.m.[i.no.call], nchar(paste0("NULL",
ss)) + 1L, 100000L)
tm <- table(c.m., deparse.level = 0L)
structure(unique(object), counts = as.vector(tm), class =
"summary.warnings")
}
The problem appears to be in the last line: unique preserves the order of the
input, but counts reflects the counts in the table tm, which is a problem
because table names are in alphabetical order.
Am I missing something?
Allison
----------
Allison Meisner, PhD
Postdoctoral Fellow
Department of Biostatistics
Johns Hopkins Bloomberg School of Public Health
615 N. Wolfe Street
Baltimore, MD 21205
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
