Rattle causes a segfault with R 3.1.0 on Mavericks

[GoogleCodeExporter]

What steps will reproduce the problem?
1. load rattle with library(rattle)
2. start rattle with rattle()
3. see the error

What is the expected output? What do you see instead?
> library(rattle)
Rattle: Ein kostenloses grafisches Interface für Data Mining mit R.
Version 3.0.2 r169 Copyright (c) 2006-2013 Togaware Pty Ltd.
Geben Sie 'rattle()' ein, um Ihre Daten mischen.
> rattle()

 *** caught segfault ***
address 0x18, cause 'memory not mapped'

Traceback:
 1: dyn.load(file, DLLpath = DLLpath, ...)
 2: library.dynam("RGtk2", pkgname, libname)
 3: doTryCatch(return(expr), name, parentenv, handler)
 4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 5: tryCatchList(expr, classes, parentenv, handlers)
 6: 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 <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && identical(getOption("show.error.messages"),         TRUE)) {        cat(msg, file = stderr())        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
 7: try(library.dynam("RGtk2", pkgname, libname), silent = getOption("verbose"))
 8: fun(libname, pkgname)
 9: doTryCatch(return(expr), name, parentenv, handler)
10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
11: tryCatchList(expr, classes, parentenv, handlers)
12: tryCatch(fun(libname, pkgname), error = identity)
13: runHook(".onLoad", env, package.lib, package)
14: loadNamespace(package, c(which.lib.loc, lib.loc))
15: doTryCatch(return(expr), name, parentenv, handler)
16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
17: tryCatchList(expr, classes, parentenv, handlers)
18: 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 <- paste0(prefix, "\n  ")    }   
 else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")  
  .Internal(seterrmessage(msg[1L]))    if (!silent && 
identical(getOption("show.error.messages"),         TRUE)) {        cat(msg, 
file = stderr())        .Internal(printDeferredWarnings())    }    
invisible(structure(msg, class = "try-error", condition = e))})
19: try({    ns <- loadNamespace(package, c(which.lib.loc, lib.loc))    env <- 
attachNamespace(ns, pos = pos, deps)})
20: library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = 
TRUE,     warn.conflicts = warn.conflicts, quietly = quietly)
21: doTryCatch(return(expr), name, parentenv, handler)
22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
23: tryCatchList(expr, classes, parentenv, handlers)
24: tryCatch(library(package, lib.loc = lib.loc, character.only = TRUE,     
logical.return = TRUE, warn.conflicts = warn.conflicts, quietly = quietly),     
error = function(e) e)
25: require("RGtk2", quietly = TRUE)
26: withCallingHandlers(expr, packageStartupMessage = function(c) 
invokeRestart("muffleMessage"))
27: suppressPackageStartupMessages(require("RGtk2", quietly = TRUE))
28: rattle()

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: 

What version of the product are you using? On what operating system?
Latest rattle 3.0.2 with R 3.1.0 on Mavericks OSX 10.9

Please provide any additional information below.

Original issue reported on code.google.com by BastianW...@gmail.com on 8 May 2014 at 10:44