- expr <- parse(text=string)[[1]]
- ## O maybe this is even uglier
- lookedup <- do.call("bquote", list(expr))
- value <- eval(lookedup, envir = globalenv())
- sendReplResultFunction(slimeConnection, value)
+ for(expr in parse(text=string)) {
+ expr <- expr
+ ## O maybe this is even uglier
+ lookedup <- do.call("bquote", list(expr))
+ tmp <- withVisible(eval(lookedup, envir = globalenv()))
+ if(tmp$visible) {
+ sendReplResultFunction(slimeConnection, tmp$value)
+ }
+ }