From juan_sr at uol.com.br  Fri May 11 17:06:51 2007
From: juan_sr at uol.com.br (Juan Santiago Ramseyer)
Date: Fri, 11 May 2007 12:06:51 -0300
Subject: [Rd] data.entry bugs
Message-ID: <1178896011.5160.2.camel@localhost.localdomain>

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



[Rd] data.entry bugs
Juan Santiago Ramseyer