|
@@ -1,4 +1,4 @@ |
|
|
;;; r-object-browser.el --- __DESCRIPTION__ |
|
|
|
|
|
|
|
|
;;; r-object-browser.el --- |
|
|
|
|
|
|
|
|
;; Copyright (C) 2019 Maxime Wack |
|
|
;; Copyright (C) 2019 Maxime Wack |
|
|
|
|
|
|
|
@@ -26,8 +26,25 @@ |
|
|
|
|
|
|
|
|
;;; Code: |
|
|
;;; 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) |
|
|
(provide 'r-object-browser) |
|
|
|
|
|
|
|
|
;;; r-object-browser.el ends here |
|
|
;;; r-object-browser.el ends here |
|
|
|
|
|
|
|
|
|
|
|
(ess-command "print(data.frame(a = 1:100000), row.names = F, n = Inf)\n" (get-buffer "robjout")) |