~ubuntu-branches/ubuntu/wily/ess/wily

    ["Watch" ess-watch  (and (ess-process-live-p)

                             (ess-process-get 'tracebug))]

    ["Error action cycle" ess-debug-toggle-error-action (and (ess-process-live-p)

    "----"

    ["Flag for debugging" ess-debug-flag-for-debugging ess-local-process-name]

    ["Unflag for debugging" ess-debug-unflag-for-debugging ess-local-process-name]

     (ess-build-tags-command            . "rtags('%s', recursive = TRUE, pattern = '\\\\.[RrSs](rw)?$',ofile = '%s')")

     (ess-traceback-command             . "local({cat(geterrmessage(), \"---------------------------------- \n\", fill=TRUE);try(traceback(), silent=TRUE)})\n")

     (ess-call-stack-command            . "traceback(1)\n")

     (ess-dump-filename-template        . (ess-replace-regexp-in-string

                                           "S$" ess-suffix ; in the one from custom:

                                           ess-dump-filename-template-proto))

     (ess-describe-object-at-point-commands . 'ess-R-describe-object-at-point-commands)

     (ess-STERM         . "iESS")

     (ess-editor        . R-editor)

   S-common-cust-alist)

  "Variables to customize for R -- set up later than emacs initialization.")

 

(defvar ess-R-error-regexp-alist '(R R1 R2 R3 R4 R-recover)

  "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.")

 

 

;; precede R4 and allowes spaces in file path

(add-to-list 'compilation-error-regexp-alist-alist

 

(add-to-list 'compilation-error-regexp-alist-alist

 

(add-to-list 'compilation-error-regexp-alist-alist

             '(R-recover " *[0-9]+: +\\([^:\n\t]+?\\)#\\([0-9]+:\\)"  1 2 nil 2 1))

ignored by calling `ess-uniq-list'.

Set this variable to nil to disable searching for other versions of R.

If you set this variable, you need to restart Emacs (and set this variable

 

(defvar ess-R-post-run-hook nil

  "Functions run in process buffer after the initialization of R

  process.")

 

 

;;;### autoload

(defun R (&optional start-args)

      (setq use-dialog-box nil)

      (if ess-microsoft-p ;; default-process-coding-system would break UTF locales on Unix

          (setq default-process-coding-system '(undecided-dos . undecided-dos))))

    (ess-process-put 'funargs-pre-cache ess-R--funargs-pre-cache)

 

    (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first

    (ess-write-to-dribble-buffer

     (format "(R): inferior-ess-language-start=%s\n"

             inferior-ess-language-start))

 

    (when ess-can-eval-in-background

      (ess-async-command-delayed

       ;; "invisible(Sys.sleep(10))\n" nil (get-process ess-local-process-name) ;; test only

       (lambda (proc) (process-put proc 'packages-cached? t))))

 

    (if inferior-ess-language-start

        (ess-eval-linewise inferior-ess-language-start

                           nil nil nil 'wait-prompt))

(defun ess-current-R-version ()

  "Get the version of R currently running in the ESS buffer as a string"

  (ess-make-buffer-current)

 

(defun ess-current-R-at-least (version)

  "Is the version of R (in the ESS buffer) at least (\">=\") VERSION ?

  (ess-make-buffer-current)

  (string= "TRUE"

           (car (ess-get-words-from-vector

 

(defvar ess-temp-newest nil)

 

        ;; always return a non-nil value to prevent history expansions

        (or (comint-dynamic-simple-complete  pattern components) 'none))))

 

 

(defun ess-R-get-rcompletions (&optional start end)

  "Call R internal completion utilities (rcomp) for possible completions.

  "OBJECTS + ARGS"

  (let ((args (ess-ac-args)))

    ;; sort of intrusive but right

        args

      (if args

          (append args (ess-ac-objects t))

      (mapcar (lambda (a) (concat a ess-ac-R-argument-suffix))

              args))))

 

(defun ess-ac-help-arg (sym)

  "Help string for ac."

  (setq sym (replace-regexp-in-string " *= *\\'" "" sym))

      (goto-char (point-min))

      (forward-line)

 

 

(defvar ess--ac-help-arg-command

  "Cache var to store package names. Used by

  `ess-install.packages'.")

 

  "Prompt and install R package. With argument, update cached packages list."

  (interactive "P")

  (when (equal "@CRAN@" (car (ess-get-words-from-vector "getOption('repos')[['CRAN']]\n")))

    (ess-setCRANMiror)

    (ess-wait-for-process (get-process ess-current-process-name))

  (when (or update

            (not ess--packages-cache))

    (message "Fetching R packages ... ")

    (setq ess--packages-cache

          (ess-get-words-from-vector "print(rownames(available.packages()), max=1e6)\n")))

    (process-send-string (get-process ess-current-process-name)

                         (format "install.packages('%s')\n" pack))

    (display-buffer (buffer-name (process-buffer (get-process ess-current-process-name))))

(defun ess-setCRANMiror ()

  "Set cran mirror"

  (interactive)

         (M2 (mapcar (lambda (el)

                       (string-match "\\(.*\\)\\[\\(.*\\)\\]$" el)

                       (propertize (match-string 1 el) 'URL (match-string 2 el)))

(defun ess-load-library ()

  "Prompt and load dialect specific library/package/module.

 

rather serves a generic, dialect independent purpose. It is also

  (interactive)

  (if (not (string-match "^R" ess-dialect))

      (message "Sorry, not available for %s" ess-dialect)