Mode prototype

r-object-browser.el

@@ -1,4 +1,4 @@
-;;; r-object-browser.el --- __DESCRIPTION__
+;;; r-object-browser.el ---
 
 ;; Copyright (C) 2019 Maxime Wack
 
@@ -26,8 +26,25 @@
 
 ;;; Code:
 
+(defvar robj-buffer "*R object browser*"
+  "Name of buffer for displaying R objects.")
 
+(defun r-object-browser ()
+  "Show an R object explorer"
+  (interactive)
+  (unless (and (string= "R" ess-dialect)
+               ess-local-process-name)
+    (error "Not in an R buffer with attached process"))
+  (let ((proc ess-local-process-name))
+    (pop-to-buffer (get-buffer-create robj-buffer))
+    (setq ess-local-process-name proc)
+    (r-object-browser-mode)))
+
+(defun r-object-browser-mode ()
+  "Run R object browser mode")
 
 (provide 'r-object-browser)
 
 ;;; r-object-browser.el ends here
+
+(ess-command "print(data.frame(a = 1:100000), row.names = F, n = Inf)\n" (get-buffer "robjout"))