Commit 3ca13eb5 authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

fix for visible values from region and interactive eval

editing thinko: need tmp$value (not just value)
parent 040918c2
......@@ -519,7 +519,7 @@ withRetryRestart <- function(description, expr) {
envir=globalenv()))) })
output <- paste(output, sep="", collapse="\n")
if(tmp$visible) {
list(output, prin1ToString(value))
list(output, prin1ToString(tmp$value))
} else {
list(output, "# invisible value")
}
......@@ -529,7 +529,7 @@ withRetryRestart <- function(description, expr) {
withRetryRestart("retry SLIME interactive evaluation request",
tmp <- withVisible(eval(parse(text=string), envir=globalenv())))
if(tmp$visible) {
prin1ToString(value)
prin1ToString(tmp$value)
} else {
"# invisible value"
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment