From 8dbddfca6f147c34d9462d6a3b6f600313b9faa6 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Thu, 20 Feb 2020 00:57:29 +0100
Subject: [PATCH] Add test zone

---
 r-object-browser.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/r-object-browser.el b/r-object-browser.el
index a726e0f..17a22d5 100644
--- a/r-object-browser.el
+++ b/r-object-browser.el
@@ -46,5 +46,7 @@
 (provide 'r-object-browser)
 
 ;;; r-object-browser.el ends here
+;;; Test zone
 
-(ess-command "print(data.frame(a = 1:100000), row.names = F, n = Inf)\n" (get-buffer "robjout"))
+(ess-force-buffer-current) ;; get current R process buffer
+(ess-command "ls()\n" (get-buffer robj-buffer))