<div dir="ltr"><div><div>Hi,<br></div>You got it !<br>The new editor function makes the trace function working correctly now...<br></div>Thanks<br></div><div class="gmail_extra"><br><div class="gmail_quote">2014-12-04 16:18 GMT+01:00 Thomas Friedrichsmeier <span dir="ltr"><<a href="mailto:thomas.friedrichsmeier@ruhr-uni-bochum.de" target="_blank">thomas.friedrichsmeier@ruhr-uni-bochum.de</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
I believe I'm starting to understand what goes wrong on your system. What I<br>
don't understand is why it doesn't go wrong on mine...<br>
<br>
Could you try this:<br>
<br>
options ("editor"=function (name=NULL, file="", title=NULL, prompt = TRUE)<br>
{<br>
    if (!is.null(name)) {<br>
        if (is.null (title)) title = deparse (substitute (name))<br>
        if (file == "") file = tempfile()<br>
        env = environment(name)<br>
        dput(name, file = file, control = c("useSource", "keepNA",<br>
            "keepInteger", "showAttributes"))<br>
        .Call("rk.edit.files", file, title, "", prompt, PACKAGE =<br>
"(embedding)")<br>
        x <- dget(file)<br>
<div class="HOEnZb"><div class="h5">        environment(x) <- env<br>
        return(x)<br>
    }<br>
    invisible(.Call("rk.edit.files", as.character(file), as.character(title),<br>
        as.character(name), isTRUE(prompt), PACKAGE = "(embedding)"))<br>
})<br>
<br>
Thanks!<br>
Thomas<br>
</div></div></blockquote></div><br></div>