<div dir="ltr"><div><div><div>1/ It seems I got the problem for any "trace" with edit=TRUE<b>.<br></b>2/ I cannot use "fix" on a function but I can use it on any variable of my workspace and it opens the adequate window...<b><br></b></div>3/ Changing the editor function did not repaired the problem, nor changed the traceback error<b><br></b></div>I don't remember having done something special with the editor or X11 or what... <br>I jsut tried to completely remove the rkward package from my Ubuntu as well as the .rkward folder in my personnal folder. I reinstalled but this did not change the problem.<b>..<br></b></div>Thank you for taking time to help<b><br></b><div><div><div><b><br></b>## 1/<b> <br>> trace(matrix,edit=T)<br></b>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<b><br>> matrix<br></b>function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL) <br>{<br> if (is.object(data) || !is.atomic(data)) <br> data <- as.vector(data)<br> .Internal(matrix(data, nrow, ncol, byrow, dimnames, missing(nrow), <br> missing(ncol)))<br>}<br><bytecode: 0xad5bd0><br><environment: namespace:base><b><br>> fix(matrix)<br></b>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<b><br>> trace("matrix",edit=T)<br></b>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<br><br><b>> ff <- function(x) {x*2}<br>> trace(ff,edit=TRUE)</b><br>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<br><b>> fix(ff)</b><br>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<br><b><br><br></b>## 2/<br><b><b>> aa <- matrix(1:4,ncol=2)<br>> fix(aa)</b><br><br><br></b>## 3/<b><br>> fix(raster:::.polygonsToRaster)<br></b>Erreur dans fix(raster:::.polygonsToRaster) : 'fix' necessite un nom<b><br>> trace(raster:::.polygonsToRaster,edit=TRUE)</b><br>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<br><b>> traceback()</b><br>13: editor(name = name, file = file, title = title)<br>12: edit.default(def, editor = editor, file = file)<br>11: utils::edit(def, editor = editor, file = file)<br>10: .makeTracedFunction(def, tracer, exit, at, print, doEdit)<br>9: .initTraceable(.Object, ...)<br>8: initialize(value, ...)<br>7: initialize(value, ...)<br>6: new(traceClass, def = if (doEdit) def else original, tracer = tracer, <br> exit = exit, at = at, print = print, doEdit = edit)<br>5: methods::.TraceWithMethods(raster:::.polygonsToRaster, edit = TRUE, <br> where = <environment>)<br>4: eval(expr, envir, enclos)<br>3: eval(expr, p)<br>2: eval.parent(call)<br>1: trace(raster:::.polygonsToRaster, edit = TRUE)<br><b>> getOption("editor")</b><br>function (file = file, title = file, name = NULL, prompt = TRUE) <br>{<br> if (!is.character(file)) {<br> nfile = tempfile()<br> env = environment(file)<br> dput(file, file = nfile, control = c("useSource", "keepNA", <br> "keepInteger", "showAttributes"))<br> .Call("rk.edit.files", nfile, title, name, prompt, PACKAGE = "(embedding)")<br> x <- dget(nfile)<br> 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><environment: namespace:rkward><br><b>> options("editor"=<br>+ function (file = file, title = file, name = NULL, prompt = TRUE)<br>+ {<br>+ if (!is.character(file)) {<br>+ nfile = tempfile()<br>+ if (!is.character(title)) title=nfile<br>+ env = environment(file)<br>+ dput(file, file = nfile, control = c("useSource", "keepNA",<br>+ "keepInteger", "showAttributes"))<br>+ .Call("rk.edit.files", nfile, title, name, prompt, PACKAGE =<br>+ "(embedding)")<br>+ x <- dget(nfile)<br>+ 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>+ })</b><br><br><b>> trace(raster:::.polygonsToRaster,edit=TRUE)<br></b>Erreur dans as.character(name) : <br> cannot coerce type 'closure' to vector of type 'character'<b><br>> traceback()<br></b>13: editor(name = name, file = file, title = title)<br>12: edit.default(def, editor = editor, file = file)<br>11: utils::edit(def, editor = editor, file = file)<br>10: .makeTracedFunction(def, tracer, exit, at, print, doEdit)<br>9: .initTraceable(.Object, ...)<br>8: initialize(value, ...)<br>7: initialize(value, ...)<br>6: new(traceClass, def = if (doEdit) def else original, tracer = tracer, <br> exit = exit, at = at, print = print, doEdit = edit)<br>5: methods::.TraceWithMethods(raster:::.polygonsToRaster, edit = TRUE, <br> where = <environment>)<br>4: eval(expr, envir, enclos)<br>3: eval(expr, p)<br>2: eval.parent(call)<br>1: trace(raster:::.polygonsToRaster, edit = TRUE)<br><div class="gmail_extra"><br><div class="gmail_quote">2014-12-04 12:59 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:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Hi,<br>
<span class=""><br>
On Thursday 04 December 2014 11:05:36 Seb R wrote:<br>
> Below is the result of the rk.sessionInfo()<br>
<br>
</span>ok, thanks.<br>
<span class=""><br>
> > trace(raster:::.polygonsToRaster,edit=TRUE)<br>
><br>
> Erreur dans as.character(name) :<br>
> cannot coerce type 'closure' to vector of type 'character'<br>
<br>
</span>I still can't reproduce this. Do you get the same when doing<br>
fix(raster:::.polygonsToRaster)<br>
? Is this the only function that seems to be affected, or anything you try to<br>
trace with edit=TRUE? After the error, what does<br>
traceback()<br>
report?<br>
<br>
What is the value of<br>
getOption("editor")<br>
?<br>
<br>
Please try, if the following fixes the problem:<br>
<br>
options("editor"=<br>
function (file = file, title = file, name = NULL, prompt = TRUE)<br>
{<br>
if (!is.character(file)) {<br>
nfile = tempfile()<br>
if (!is.character(title)) title=nfile<br>
env = environment(file)<br>
dput(file, file = nfile, control = c("useSource", "keepNA",<br>
"keepInteger", "showAttributes"))<br>
.Call("rk.edit.files", nfile, title, name, prompt, PACKAGE =<br>
"(embedding)")<br>
x <- dget(nfile)<br>
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>
<span class=""><font color="#888888">Thomas<br>
</font></span></blockquote></div><br></div></div></div></div></div>