;ELC ;;; Compiled by maechler@stat.math.ethz.ch on Mon Dec 6 14:29:23 2004 ;;; from file /u/maechler/emacs/ess-WWW/downloads/r-utils.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`r-utils.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (provide 'r-utils) #@29 Name of temporary R buffer. (defvar r-utils-buf "*R temp*" (#$ . 642)) #@37 List all packages in all libraries. (defalias 'r-utils-listpkg #[nil "\302!\203 q\210\303\304\305\303\306GSO#\210\307!\210\310\211\207" [r-utils-buf buffer-read-only get-buffer nil ess-execute "sort(.packages(all.available=TRUE))" 1 pop-to-buffer t] 6 (#$ . 719) nil]) #@30 Load package from a library. (defalias 'r-utils-loadpkg #[(pkg) "\301\302\303Q\304\"\207" [pkg ess-execute "library('" "', character.only=TRUE)" buffer] 4 (#$ . 1002) "spackage to load: "]) #@26 List packages from CRAN. (defalias 'r-utils-cranpkg #[nil "\302!\203 q\210\303\304\305\303\306GSO#\210\307!\210\310\211\207" [r-utils-buf buffer-read-only get-buffer nil ess-execute "CRAN.packages()" 1 pop-to-buffer t] 6 (#$ . 1199) nil]) #@29 Install packages from CRAN. (defalias 'r-utils-installcran #[(pkg) "\301\302\303Q\304\"\207" [pkg ess-execute "install.packages(c(" "))" buffer] 4 (#$ . 1452) "sCRAN packages to install: "]) #@28 Update packages from CRAN. (defalias 'r-utils-updatecran #[nil "\300\301\302\"\207" [ess-execute "update.packages()" buffer] 3 (#$ . 1650) nil]) #@34 List packages from Bioconductor. (defalias 'r-utils-biocpkg #[nil "\302!\203 q\210\303\304\305\303\306GSO#\210\307!\210\310\211\207" [r-utils-buf buffer-read-only get-buffer nil ess-execute "CRAN.packages(getOption('BIOC'))" 1 pop-to-buffer t] 6 (#$ . 1801) nil]) #@37 Install packages from Bioconductor. (defalias 'r-utils-installbioc #[(pkg) "\301\302\303Q\304\"\207" [pkg ess-execute "install.packages(c(" "), CRAN=getOption('BIOC'))" buffer] 4 (#$ . 2079) "sBioconductor packages to install: "]) #@36 Update packages from Bioconductor. (defalias 'r-utils-updatebioc #[nil "\300\301\302\"\207" [ess-execute "update.packages(CRAN=getOption('BIOC'))" buffer] 3 (#$ . 2317) nil]) #@36 Search for a string using apropos. (defalias 'r-utils-apropos #[(string) "\303!\203 q\210\304\305\306\n\307Q\304\310GSO#\210\311!\210\312\211\207" [r-utils-buf buffer-read-only string get-buffer nil ess-execute "apropos('" "')" 1 pop-to-buffer t] 6 (#$ . 2498) "sApropos search for? "]) #@23 Remove all R objects. (defalias 'r-utils-rmall #[nil "\300\301!\205\n\302\303\304\"\207" [y-or-n-p "Delete all objects? " ess-execute "rm(list=ls())" buffer] 3 (#$ . 2799) nil]) #@47 Manipulate R objects; wrapper for ess-rdired. (defalias 'r-utils-objs #[nil "\300 \207" [ess-rdired] 1 (#$ . 2984) nil]) #@24 Load workspace into R. (defalias 'r-utils-loadwkspc #[(file) "\301\302\303Q\304\"\207" [file ess-execute "load('" "')" buffer] 4 (#$ . 3111) "fFile with workspace to load: "]) #@19 Save R workspace. (defalias 'r-utils-savewkspc #[(file) "\301\302\303Q\304\"\207" [file ess-execute "save.image('" ".RData')" buffer] 4 (#$ . 3294) "FSave workspace to file (w/o ext.): "]) #@29 Change R working directory. (defalias 'r-utils-chgdir #[(dir) "\301\302\303Q\304\"\207" [dir ess-execute "setwd('" "')" buffer] 4 (#$ . 3490) "DChange directory to: "]) (add-hook 'inferior-ess-mode-hook '(lambda nil (define-key inferior-ess-mode-map [S-f3] 'r-utils-listpkg) (define-key inferior-ess-mode-map [f3] 'r-utils-loadpkg) (define-key inferior-ess-mode-map [S-f4] 'r-utils-cranpkg) (define-key inferior-ess-mode-map [f4] 'r-utils-installcran) (define-key inferior-ess-mode-map [S-f5] 'r-utils-biocpkg) (define-key inferior-ess-mode-map [f5] 'r-utils-installbioc) (define-key inferior-ess-mode-map [S-f6] 'r-utils-updatecran) (define-key inferior-ess-mode-map [f6] 'r-utils-updatebioc) (define-key inferior-ess-mode-map [S-f7] 'r-utils-apropos) (define-key inferior-ess-mode-map [f7] 'r-utils-chgdir) (define-key inferior-ess-mode-map [S-f8] 'r-utils-rmall) (define-key inferior-ess-mode-map [f8] 'r-utils-objs) (define-key inferior-ess-mode-map [S-f9] 'r-utils-loadwkspc) (define-key inferior-ess-mode-map [f9] 'r-utils-savewkspc)))