1 ;;; essd-r.el --- R customization
3 ;; Copyright (C) 1997--2005 A.J. Rossini, Rich M. Heiberger, Martin
4 ;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
6 ;; Original Author: A.J. Rossini
7 ;; Created: 12 Jun 1997
8 ;; Maintainers: ESS-core <ESS-core@stat.math.ethz.ch>
10 ;; Keywords: start up, configuration.
12 ;; This file is part of ESS.
14 ;; This file is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; This file is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to
26 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
29 ;;; This file defines all the R customizations for ESS. See essl-s.el
30 ;;; for general S language customizations.
32 ;;; Autoloads and Requires
34 (ess-message "[essd-r:] (require 'essl-s)")
37 (require 'essd-r-args
); for now
39 ;; modify S Syntax table:
40 (setq R-syntax-table S-syntax-table
)
42 ;; In R 2.x, back tick now is a quote character, so lets tell Emacs
43 ;; that it is; the problem below for older R should no longer be a
45 ;;R >= 1.8: back tick `string` -- unfortunately no *pair* checking:
46 ;; breaks when things like `..' are used:
47 (modify-syntax-entry ?
` "\"" R-syntax-table
)
48 (modify-syntax-entry ?_
"_" R-syntax-table
) ; foo_bar is symbol in R >=1.9
50 (ess-message "[essd-r:] (autoload ..) & (def** ..)")
52 (autoload 'inferior-ess
"ess-inf" "Run an ESS process.")
53 (autoload 'ess-mode
"ess-mode" "Edit an ESS process.")
57 (defvar R-customize-alist
59 '((ess-local-customize-alist .
'R-customize-alist
)
62 (ess-dump-filename-template .
(ess-replace-regexp-in-string
63 "S$" ess-suffix
; in the one from custom:
64 ess-dump-filename-template-proto
))
65 (ess-mode-syntax-table . R-syntax-table
)
66 (ess-mode-editing-alist . R-editing-alist
)
67 (ess-change-sp-regexp . ess-R-change-sp-regexp
)
68 (ess-help-sec-regex . ess-help-R-sec-regex
)
69 (ess-help-sec-keys-alist . ess-help-R-sec-keys-alist
)
70 (ess-loop-timeout . ess-S-loop-timeout
);fixme: dialect spec.
71 (ess-cmd-delay . ess-R-cmd-delay
)
72 (ess-function-pattern . ess-R-function-pattern
)
73 (ess-object-name-db-file .
"ess-r-namedb.el" )
74 (ess-imenu-mode-function .
'ess-imenu-R
)
75 (inferior-ess-program . inferior-R-program-name
)
76 (inferior-ess-objects-command . inferior-R-objects-command
)
77 (inferior-ess-font-lock-keywords . inferior-ess-R-font-lock-keywords
)
78 (inferior-ess-search-list-command .
"search()\n")
79 (inferior-ess-help-command .
"help(\"%s\", htmlhelp=FALSE)\n")
80 (inferior-ess-help-filetype . nil
)
81 (inferior-ess-exit-command .
"q()")
82 (inferior-ess-exit-prompt .
"Save workspace image? [y/n/c]: ")
83 (inferior-ess-primary-prompt .
"\\([A-Z][][A-Za-z0-9.]*\\)*> ")
84 (inferior-ess-secondary-prompt .
"+ ?")
85 ;;harmful for shell-mode's C-a: -- but "necessary" for ESS-help?
86 (inferior-ess-start-file . nil
) ;; "~/.ess-R"
87 (inferior-ess-start-args .
"")
89 (ess-editor . R-editor
)
93 "Variables to customize for R -- set up later than emacs initialization.")
95 (defvar ess-r-versions
'("R-1" "R-2" "R-devel" "R-patched")
96 "List of partial strings for versions of R to access within ESS.
97 Each string specifies the start of a filename. If a filename
98 beginning with one of these strings is found on `exec-path', a M-x
99 command for that version of R is made available. For example, if the
100 file \"R-1.8.1\" is found and this variable includes the string
101 \"R-1\", a function called `M-x R-1.8.1' will be available to run that
103 If duplicate versions of the same program are found (which happens if
104 the same path is listed on `exec-path' more than once), they are
105 ignored by calling `ess-uniq-list'.
106 Set this variable to nil to disable searching for other versions of R.
107 If you set this variable, you need to restart Emacs (and set this variable
108 before ess-site is loaded) for it to take effect.")
111 (defun R (&optional start-args
)
112 "Call 'R', the 'GNU S' system from the R Foundation.
113 Optional prefix (C-u) allows to set command line arguments, such as
114 --vsize. This should be OS agnostic.
115 If you have certain command line arguments that should always be passed
116 to R, put them in the variable `inferior-R-args'."
118 (setq ess-customize-alist R-customize-alist
)
119 (ess-write-to-dribble-buffer ;; for debugging only
121 "\n(R): ess-dialect=%s, buf=%s, start-arg=%s\n current-prefix-arg=%s\n"
122 ess-dialect
(current-buffer) start-args current-prefix-arg
))
124 (if (or ess-microsoft-p
(eq system-type
'cygwin
))
129 inferior-R-args
" " ; add space just in case
132 (concat "Starting Args [other than `"
136 ;;Micro$ ?: default-process-coding-system ;-breaks UTF locales on Unix:
139 (setq default-process-coding-system
'(undecided-dos . undecided-dos
)))
140 (inferior-ess r-start-args
) ;; (R)
141 (ess-write-to-dribble-buffer
142 (format "(R): inferior-ess-language-start=%s\n"
143 inferior-ess-language-start
))
144 ;; currently rely on baseenv() which is in R only since version 2.2:
146 "if(!exists(\"baseenv\", mode=\"function\")) baseenv <- function() NULL"
147 nil nil nil
'wait-prompt
);; solving "lines running together"
148 (if inferior-ess-language-start
149 (ess-eval-linewise inferior-ess-language-start
150 nil nil nil
'wait-prompt
))))
153 (defun R-mode (&optional proc-name
)
154 "Major mode for editing R source. See `ess-mode' for more help."
156 (setq ess-customize-alist R-customize-alist
)
157 ;;(setq imenu-generic-expression R-imenu-generic-expression)
158 (ess-mode R-customize-alist proc-name
)
159 (if (fboundp 'ess-add-toolbar
) (ess-add-toolbar))
160 ;; ECB needs seminatic stuff.
161 ;; (if (featurep 'semantic)
162 ;; (setq semantic-toplevel-bovine-table r-toplevel-bovine-table))
164 (progn (require 'ess-menu
)
166 ;; MM: ^^^^^^^^^^^ should really use ess-imenu-mode-function from the
171 (fset 'r-mode
'R-mode
)
173 ;; FIXME: below we have a "copy-paste" version of this,
174 ;; ess-rterm-versions-create {which should really be merged into here}
175 (defun ess-r-versions-create ()
176 "Generate the `M-x R-X.Y' functions for starting other versions of R.
177 See `ess-r-versions' for strings that determine which functions are created.
179 The local variable `ess-r-versions-created' is used to return list of
180 the new R defuns, if any, that were created. The defuns will normally
181 be placed on the menubar upon ESS initialisation."
183 (if (not ess-r-versions
)
184 nil
;nothing to return
185 ;; else, if ess-r-versions is non-nil, let's try to find those R versions.
186 ;; This works by creating a temp buffer where the template function is
187 ;; edited so that X.Y is replaced by the version name
192 (eval-buf (get-buffer-create "*ess-temp-r-evals*"))
193 (ess-r-versions-created)
195 ;; This is the template function used for creating M-x R-X.Y.
196 (setq template
"(defun R-X.Y (&optional start-args)
197 \"Call R-X.Y, i.e., the R version 'R-X.Y' using ESS.
198 This function was generated by `ess-r-versions-create'.\"
200 (let ((inferior-R-program-name \"R-X.Y\"))
205 (set-buffer eval-buf
)
207 (delete-region (point-min) (point-max))
209 ;; Find which versions of R we want. Remove the pathname, leaving just
210 ;; the name of the executable.
213 (mapcar 'file-name-nondirectory
215 (mapcar 'ess-find-exec-completions
217 (ess-write-to-dribble-buffer
218 (format "(R): ess-r-versions-create making M-x defuns for %s"
219 (mapconcat 'identity versions
" ")))
220 (setq ess-r-versions-created versions
) ;keep copy for returning at end.
221 ;; Iterate over each string in VERSIONS, creating a new defun each time.
223 (setq version
(car versions
)
224 versions
(cdr versions
))
228 (while (search-forward "R-X.Y" nil t
)
229 (replace-match version t t
))
230 (goto-char (point-max))
232 ;; buffer has now been created with defuns, so eval them!
234 (kill-buffer eval-buf
)
236 ess-r-versions-created
)))
239 ;; (ess-r-version-date "R-2.5.1") (ess-r-version-date "R-patched")
240 ;; (ess-r-version-date "R-1.2.1") (ess-r-version-date "R-1.8.1")
241 ;; Note that for R-devel, ver-string is something like
242 ;; R version 2.6.0 Under development (unstable) (2007-07-14 r42234)
243 ;; Antique examples are 'R 1.0.1 (April 14, 2000)' or 'R 1.5.1 (2002-06-17).'
244 (defun ess-r-version-date (rver)
245 "Return the date of the version of R named RVER.
246 The date is returned as a date string. If the version of R could
247 not be found from the output of the RVER program, \"-1\" is
251 (setq ver-string
(shell-command-to-string
252 (concat rver
" --version")))
254 "R \\(version \\)?[1-9][^\n]+ (\\(2[0-9-]+\\)\\( r[0-9]+\\)?)"
256 (setq date
(match-string 2 ver-string
)))
259 (defun ess-newest-r (rvers)
260 "Check all the versions of RVERS to see which is the newest.
261 Create an alias for that version of R, so that M-x R-newest will run it."
262 (let* ((rtimes (mapcar 'ess-r-version-date rvers
))
263 (rnewest (ess-find-newest-date rtimes
)))
268 (file-name-nondirectory
269 (substring (file-name-directory
270 (substring (file-name-directory rnewest
) 0 -
1))
273 ;; SJE: 2007-07-13 -- following line is a temp var to check that
274 ;; the newest version of R is found correctly.
275 (setq temp-ess-newest rtimes
)
276 (message (concat "newest is " rnewest
))))
279 ;; Test case for following defun:
280 ;; (setq a '( ("2003-10-04" . "R-1.7")
281 ;; ("2006-11-19" . "R-2.2")
282 ;; ("2007-07-01" . "R-dev")
283 ;; ("-1" . "R-broken")
284 ;; ("2005-12-30" . "R-2.0")))
285 ;; (ess-find-newest-date a)
286 (defun ess-find-newest-date (rvers)
287 "Find the newest version of R given in the a-list RVERS.
288 Each element of RVERS is a dotted pair (date . R-version), where
289 date is given as e.g.\"2007-11-30\" so that we can compare dates
290 as strings. If a date is listed as \"-1\", that version of R
293 If the value returned is nil, no valid newest version of R could be found."
297 (setq this-r
(car rvers
)
299 (when (string< new-time
(car this-r
))
300 (setq new-time
(car this-r
)
301 new-r
(cdr this-r
))))
305 (defun ess-find-rterm (&optional ess-R-root-dir
)
306 "Find the full path of all occurences of Rterm.exe under the ESS-R-ROOT-DIR.
307 If ESS-R-ROOT-DIR is nil, construct it by looking for an occurence of Rterm.exe
308 in the exec-path. If there are no occurences of Rterm.exe in the exec-path,
309 then use \"c:/progra~1/R/\" which is the default location for the R distribution."
314 (if (not ess-R-root-dir
)
316 (setq Rpath
(executable-find "Rterm"))
321 (file-name-directory Rpath
)
324 (setq rwxxyy
(append (file-name-all-completions "rw" ess-R-root-dir
)
325 (file-name-all-completions "R-1" ess-R-root-dir
)
326 (file-name-all-completions "R-2" ess-R-root-dir
)
327 (file-name-all-completions "R-devel" ess-R-root-dir
)
328 (file-name-all-completions "R-patched" ess-R-root-dir
)
329 )) ;; this needs to rewritten to use (append '("rw") ess-r-versions)
331 (setq rw
(car rwxxyy
))
332 (setq rwxxyy
(cdr rwxxyy
))
333 (setq Rterm
(cons (ess-replace-regexp-in-string "[\\]" "/"
334 (concat ess-R-root-dir rw
"bin/Rterm.exe"))
338 (defun ess-rterm-versions-create ()
339 "Generate the `M-x rwxxyy' functions for starting other versions of R.
340 See `ess-rterm-versions' for strings that determine which functions
343 The result `ess-rterm-versions-created' will store a list of the new
344 Rterm defuns, if any, that were created. The defuns will normally be
345 placed on the menubar upon ESS initialisation."
347 ;; This works by creating a temp buffer where the template function is
348 ;; edited so that R-X.Y is replaced by the version name
354 (eval-buf (get-buffer-create "*ess-temp-r-evals*"))
355 (ess-rterm-versions-created)
358 ;; This is the template function used for creating M-x R-X.Y.
359 (setq template
"(defun R-X.Y (&optional start-args)
360 \"Call R-X.Y, i.e., the R version 'R-X.Y' using ESS.
361 This function was generated by `ess-rterm-versions-create'.\"
363 (let ((inferior-R-program-name \"Rterm-X.Y\"))
368 (set-buffer eval-buf
)
370 (delete-region (point-min) (point-max))
372 ;; Find which versions of R we want. Remove the pathname, leaving just
373 ;; the name of the executable.
374 (setq versions ess-rterm-versions
)
375 (ess-write-to-dribble-buffer
376 (format "(R): ess-rterm-versions-create making M-x defuns for %s"
377 (mapconcat 'identity versions
" ")))
379 ;; Iterate over each string in VERSIONS, creating a new defun each time.
381 (setq version
(car versions
)
382 versions
(cdr versions
)
383 version-root
(file-name-nondirectory
384 (substring (file-name-directory
386 (file-name-directory version
)
392 (while (search-forward "R-X.Y" nil t
)
393 (replace-match version-root t t
))
395 (while (search-forward "Rterm-X.Y" nil t
)
396 (replace-match version t t
))
397 (goto-char (point-max))
398 (setq ess-rterm-versions-created
399 (cons version-root ess-rterm-versions-created
))
401 ;; buffer has now been created with defuns, so eval them!
403 (kill-buffer eval-buf
)
405 ess-rterm-versions-created
))
409 "Major mode for editing Sweave(R) source.
410 See `noweb-mode' and `R-mode' for more help."
412 (require 'ess-noweb
);; << probably someplace else
413 (noweb-mode 1); turn it on
414 (noweb-set-doc-mode 'latex-mode
)
415 (noweb-set-code-mode 'R-mode
)
416 (run-hooks 'Rnw-mode-hook
))
418 (fset 'Snw-mode
'Rnw-mode
); just a synonym (for now or ever)
421 (autoload 'ess-transcript-mode
"ess-trns"
422 "Major mode for editing S transcript files." t
)
424 (defun R-transcript-mode ()
425 "Does the right thing."
427 (ess-transcript-mode R-customize-alist
))
429 (fset 'r-transcript-mode
'R-transcript-mode
)
431 (defun R-fix-T-F (&optional from quietly
)
432 "Fix T/F into TRUE and FALSE *cautiously*, i.e. not in comments and strings;
433 starting from the current position (point)."
434 (interactive "d\nP"); point and prefix (C-u)
437 (ess-rep-regexp "\\(\\([][=,()]\\|<-\\|_\\) *\\)T\\>" "\\1TRUE"
438 'fixcase nil
(not quietly
))
440 (ess-rep-regexp "\\(\\([][=,()]\\|<-\\|_\\\) *\\)F\\>" "\\1FALSE"
441 'fixcase nil
(not quietly
))))
443 ;; From: Sebastian Luque <spluque@gmail.com>
444 ;; To: ess-help@stat.math.ethz.ch
445 ;; Date: Mon, 01 May 2006 19:17:49 -0500
447 ;; Without knowing how to tell R to use w3m from within Emacs, and after
448 ;; switching to Konqueror's window for the millionth time, I wrote the
449 ;; following function:
451 ;; This emulates some of the functionality of RSiteSearch() and tests ok in
452 ;; my system GNU Emacs 22.0.50.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll
453 ;; bars) of 2006-04-27 on pacem, modified by Debian. This has the benefit of
454 ;; displaying results with whatever you've told browse-url to use; in my
455 ;; case, w3m with the emacs-w3m package.
457 ;; My elisp skills are rather poor, so comments and suggestions for
458 ;; improvement are welcome.
463 ;; MM _FIXME_: This only works correctly for Emacs 22.0.50 (alpha)
464 ;; for 21.x it has problems in the (completing-read-multiple .)
466 (defun R-site-search (string)
467 "Search the R archives for STRING, using default criteria. If
468 called with a prefix, options are available for
470 2) sections of the archives to search (separated by value of `crm-default-separator'),
471 3) for displaying results in long or short formats, and
472 4) for sorting by any given field.
473 Completion is available for supplying options."
474 (interactive "sSearch string: ")
475 (let ((site "http://search.r-project.org/cgi-bin/namazu.cgi?query=")
476 (okstring (replace-regexp-in-string " +" "+" string
)))
477 (if current-prefix-arg
482 '(("20" 1) ("30" 2) ("40" 3) ("50" 4) ("100" 5)))))
486 "Format: " '("normal" "short")
487 nil t
"normal" nil
"normal")))
492 '(("score" 1) ("date:late" 2) ("date:early" 3)
493 ("field:subject:ascending" 4)
494 ("field:subject:decending" 5)
495 ("field:from:ascending" 6) ("field:from:decending" 7)
496 ("field:size:ascending" 8) ("field:size:decending" 9))
497 nil t
"score" nil
"score")))
502 (completing-read-multiple
504 '(("Rhelp02a" 1) ("functions" 2) ("docs" 3)
506 nil t
"Rhelp02a,functions,docs" nil
507 "Rhelp02a,functions,docs") "&idxname="))))
508 (browse-url (concat site okstring mpp format sortby restrict
)))
509 ;; else: without prefix use defaults:
510 (browse-url (concat site okstring
"&max=20&result=normal&sort=score"
511 "&idxname=Rhelp02a&idxname=functions&idxname=docs")))))
518 \f ; Local variables section
520 ;;; This file is automatically placed in Outline minor mode.
521 ;;; The file is structured as follows:
524 ;;; Subsections: ;;;*;;;
525 ;;; Components: defuns, defvars, defconsts
526 ;;; Random code beginning with a ;;;;* comment
530 ;;; outline-minor-mode: nil
531 ;;; mode: outline-minor
532 ;;; outline-regexp: "\^L\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*"
535 ;;; essd-r.el ends here