r-conf.el

(require 'ess-site)

;;(setq exec-path (cons "/usr/local/bin" exec-path))
;;https://github.com/jimhester/lintr

auto-mode-alist (append (list '("\\.S$" . S-mode)
                              '("\\.s$" . S-mode)
                              '("\\.R$" . R-mode)
                              '("\\.r$" . R-mode)
                              )
                        auto-mode-alist)

(setq-default inferior-R-program-name "R")

;;autocomplete
(setq ess-use-auto-complete 'script-only)
(define-key ac-completing-map (kbd "M-h") 'ac-quick-help)

;;When selecting completion candidates the return key inserts the
;;selected candidate. This can be a problem any time completion
;;candidates are triggered and you want to insert a new line, because
;;pressing return will complete the selected candidate rather than
;;insert a new line as intended. One solution is to remove the binding
;;of ac-complete to the return key”
;;Optionally, you may wish to bind ac-complete to tab:

;;(define-key ac-completing-map "\r" nil)
;;(define-key ac-completing-map "\t" 'ac-complete)
(define-key ac-completing-map [tab] 'ac-complete)
(define-key ac-completing-map [return] nil)


(setq ess-fancy-comments nil) ; this is for ESS

(defun myindent-ess-hook ()
  (setq ess-indent-level 2))
(add-hook 'ess-mode-hook 'myindent-ess-hook)

;;; R modes
;;(add-to-list 'auto-mode-alist '("\\.Snw" . poly-noweb+r-mode))
;;(add-to-list 'auto-mode-alist '("\\.Rnw" . poly-noweb+r-mode))
;;(add-to-list 'auto-mode-alist '("\\.Rmd" . poly-markdown+r-mode))

;;(require 'poly-R) 
;;(require 'poly-markdown)

;; ESS Markdown
;; -------------
(defun rmd-mode ()
  "ESS Markdown mode for rmd files"
  (interactive)
  (setq load-path 
    (setq load-path
      (append '("~/.emacs.d/vendor/polymode/"  "~/.emacs.d/vendor/polymode/modes")
        load-path)))
  (require 'poly-R)
  (require 'poly-markdown)
  (poly-markdown+r-mode))

;; Wrap line in markdown. Comment if you don't dislike words cut in the middle
(add-hook 'markdown-mode-hook (lambda () (visual-line-mode 1)))

;; Let you use markdown buffer easily
(setq ess-nuke-trailing-whitespace-p nil) 

(add-to-list 'auto-mode-alist '("\\.Rmd" . rmd-mode))

;;
(add-hook 'ess-mode-hook 'ess-smart-equals-mode)
(add-hook 'inferior-ess-mode-hook 'ess-smart-equals-mode)


;; Rmarkdown compile with M-n s

;; (defun ess-rmarkdown ()
;;   "Compile R markdown (.Rmd). Should work for any output type."
;;   (interactive)
;;                                         ; Check if attached R-session
;;   (condition-case nil
;;       (ess-get-process)
;;     (error
;;      (ess-switch-process)))
;;   (let* ((rmd-buf (current-buffer)))
;;     (save-excursion
;;       (let* ((sprocess (ess-get-process ess-current-process-name))
;;              (sbuffer (process-buffer sprocess))
;;              (buf-coding (symbol-name buffer-file-coding-system))
;;              (R-cmd
;;               (format "library(rmarkdown); rmarkdown::render(\"%s\")"
;;                       buffer-file-name)))
;;         (message "Running rmarkdown on %s" buffer-file-name)
;;         (ess-execute R-cmd 'buffer nil nil)
;;         (switch-to-buffer rmd-buf)
;;         (ess-show-buffer (buffer-name sbuffer) nil)))))

;; (define-key polymode-mode-map "\M-ns" 'ess-rmarkdown)