[rkward-tracker] [ rkward-Bugs-2811474 ] FIXED IN SVN: UNIX ONLY: library(rcdklibs) crashes RKWard

[SourceForge.net]

Bugs item #2811474, was opened at 2009-06-24 14:05
Message generated for change (Settings changed) made by tfry
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=459007&aid=2811474&group_id=50231

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
>Resolution: Fixed
Priority: 5
Private: No
Submitted By: Thomas Friedrichsmeier (tfry)
Assigned to: Nobody/Anonymous (nobody)
>Summary: FIXED IN SVN: UNIX ONLY: library(rcdklibs) crashes RKWard

Initial Comment:
See http://sourceforge.net/forum/message.php?msg_id=7429180 , originally reported by Ralf Tautenhahn.

This does not happen in RKWard on Windows.

----------------------------------------------------------------------

>Comment By: Thomas Friedrichsmeier (tfry)
Date: 2010-11-19 14:16

Message:
In the SVN version, the R backend now runs in a separate process (at least
by default). This fixes the incompatiblities with rJava and RGtk2 on X11.

Please test!

----------------------------------------------------------------------

Comment By: Ralf  Tautenhahn (rtautenh)
Date: 2010-03-08 23:31

Message:
Since the problem is related to rJava, it's probably the same for any rJava
based package.

e.g.  library(xlsx):


Loading required package: xlsxjars
Loading required package: rJava

 *** caught segfault ***
address 0x7f1d917d9aa0, cause 'invalid permissions'

Traceback:
 1: .External(interface, obj at jobj, returnSig, method, ..., PACKAGE =
"rJava")
 2: .jcall(ic, "Ljava/lang/reflect/Field;", "getField", "TYPE")
 3: .jinit()
 4: .jpackage(pkgname)
 5: fun(...)
 6: doTryCatch(return(expr), name, parentenv, handler)
 7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 8: tryCatchList(expr, classes, parentenv, handlers)
 9: 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"))})
10: try({    fun(...)    NULL})
11: runHook(".onLoad", package, env, package.lib, package)
12: loadNamespace(package, c(which.lib.loc, lib.loc), keep.source =
keep.source)
13: doTryCatch(return(expr), name, parentenv, handler)
14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
15: tryCatchList(expr, classes, parentenv, handlers)
16: 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"))})
17: 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)})
18: library(pkg, character.only = TRUE, logical.return = TRUE, lib.loc =
lib.loc)
19: .getRequiredPackages2(pkgInfo)
20: library(xlsx)




----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=459007&aid=2811474&group_id=50231