bind last output to .Last.value

IRkernel · Sep 10, 2016 · 69fef4e · 69fef4e
1 parent 45bddc5
commit 69fef4e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/R/execution.r b/R/execution.r
@@ -168,6 +168,7 @@ handle_value = function(obj) {
         page(mimebundle)
     } else {
         log_debug('Sending display_data: %s', paste(capture.output(str(mimebundle$data)), collapse = '\n'))
+        set_last_value(obj)
         send_response('display_data', current_request, 'iopub', mimebundle)
     }
 },

diff --git a/R/utils.r b/R/utils.r
@@ -29,3 +29,9 @@ fromRawJSON <- function(r) {
     Encoding(s) <- 'UTF-8'
     fromJSON(s)
 }
+
+set_last_value <- function(obj) {
+    unlockBinding(".Last.value", .BaseNamespaceEnv)
+    assign(".Last.value", obj, .BaseNamespaceEnv)
+    lockBinding(".Last.value", .BaseNamespaceEnv)
+}