set_last_value()

jupyter-xeus · Oct 26, 2023 · b2f2909 · b2f2909
1 parent 5336475
commit b2f2909
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/share/jupyter/kernels/xr/resources/execute.R b/share/jupyter/kernels/xr/resources/execute.R
@@ -28,6 +28,7 @@ handle_error <- function(e) {
 }
 
 handle_value <- function(execution_counter) function(obj, visible) {
+  set_last_value(obj)
   if (!visible) return()
 
   # only doing text-plain for now

diff --git a/share/jupyter/kernels/xr/resources/utils.R b/share/jupyter/kernels/xr/resources/utils.R
@@ -10,6 +10,12 @@ namedlist <- function() {
     `names<-`(list(), character())
 }
 
+set_last_value <- function(obj) {
+    unlockBinding(".Last.value", .BaseNamespaceEnv)
+    assign(".Last.value", obj, .BaseNamespaceEnv)
+    lockBinding(".Last.value", .BaseNamespaceEnv)
+}
+
 # borrowed from IRkernel
 plot_builds_upon <- function(prev, current) {
     if (is.null(prev)) {