In session of R, occour following bug's in de (data.entry) function.
*** caught segfault ***
address 0x2c, cause 'memory not mapped'
Traceback:
1: dataentry(odata, as.list(Modes))
2: de(..., Modes = Modes, Names = Names)
3: data.entry(posto, fecha, serie = registros, status)
4: onEditaSerie(serie, "serie")
5: function () serie <- onEditaSerie(serie, "serie")()
6: doTryCatch(return(expr), name, parentenv, handler)
7: tryCatchOne(expr, names, parentenv, handlers[[1]])
8: tryCatchList(expr, classes, parentenv, handlers)
9: tryCatch(expr, error = function(e) { call <- conditionCall(e)
if (!is.null(call)) { if (identical(call[[1]],
quote(doTryCatch))) call <- sys.call(-4) dcall <-
deparse(call)[1] prefix <- paste("Error in", dcall, ":
")
LONGCALL <- 30 if (nchar(dcall) > LONGCALL) prefix
<-
paste(prefix, "\n\t", sep = "") } else prefix <-
"Error : " msg
<- paste(prefix, conditionMessage(e), "\n", sep "")
.Internal(seterrmessage(msg[1])) if (!silent &&
identical(getOption("show.error.messages"), TRUE)) {
cat(msg, file = stderr()) .Internal(printDeferredWarnings()) }
invisible(structure(msg, class = "try-error"))})
10: try(function () serie <- onEditaSerie(serie, "serie")())
Possible actions:
1: abort (with core dump, if enabled)
2: normal R exit
3: exit R without saving workspace
4: exit R saving workspace
Selection: 3
Process R exited abnormally with code 70 at Fri May 11 11:55:23 2007
The function call is:
onEditaSerie <- function(lista,nomeLista) {
posto <- lista$posto
fecha <- chron2txt(lista$data)
registros <- lista$serie
status <- lista$status
listaaux <- de(posto,fecha,serie=registros,status)
serieaux <- list(posto=listaaux$posto,
data=textotime2tempo(listaaux$fecha),
serie=listaaux$registros,
status=listaaux$status)
assign(nomeLista,serieaux,envir=.GlobalEnv)
}
The computer/system is:
CPU: AMD64
System: Fedora Core 6
GUI: KDE/Emacs/ESS
Juan Santiago Ramseyer.
Eng Recursos H?dricos
