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

make inspector printing more reasonable

I don't yet know what's right, but it's fairly nonsensical to have
"[1] " prepending every label and value, so use prin1ToString
parent f198b5e4
......@@ -658,7 +658,7 @@ inspectObject <- function(slimeConnection, object) {
valuePart <- function(istate, object, string) {
list(quote(`:value`),
if(is.null(string)) printToString(object) else string,
if(is.null(string)) prin1ToString(object) else string,
assignIndexInParts(object, istate))
}
......@@ -669,7 +669,7 @@ preparePart <- function(istate, part) {
switch(as.character(part[[1]]),
`:newline` = list("\n"),
`:value` = valuePart(istate, part[[2]], part[[3]]),
`:line` = list(printToString(part[[2]]), ": ",
`:line` = list(prin1ToString(part[[2]]), ": ",
valuePart(istate, part[[3]], NULL), "\n"))
}
}
......
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