Displaying 1 result from an estimated 1 matches for "trywarn".
Did you mean:
pr_warn
2001 Apr 10
0
segfault on Linux from buffer overflow in warning() ? (PR#905)
...2) <- 1:r
# problem triggered by data.frame()
invisible(data.frame(rbind(y1,y2)))
}
## crashes between 1600 and 1700 rows, 1 column
## (overallocating buffer in duplicate rows warning?)
provoke.bug2 <- function(n=1600) {
str <- as.character(1:n)
dup <- duplicated(c(str,str))
trywarn <- paste("duplicates:",paste(which(dup),collapse=","))
cat("Length of warning message:",nchar(trywarn),"\n")
warning(trywarn)
## problem is in warning() ...
}
provoke.bug3 <- function(n=1600) {
warnmsg <- paste(LETTERS[sample(1:26,n,replace...