从 Rmd 文档一次执行所有 R 块

Question

最小的Rmarkdown 文档具有 YAML 标头、markdown 语法和 R 代码块。 编辑这样的多语言文件，我使用的是 Emacs 编辑器，打开 Rmd 文档的缓冲区在polymode。

一个典型的文档有不止一个 R 块。当我在 Rmd 文档的中间编写/调试 R 块时，我在 ESS 模式下有第二个缓冲区，其中 R 正在运行，并且我经常必须通过从 Rmd 发送 R 命令来重新执行所有以前的块将文件（第一个缓冲区）放入 R 控制台（第二个缓冲区）。

是否有一个命令可以执行所有块中的所有命令？

来自another question，似乎 org-mode 可以做到这一点。但是在我的环境下可以做到吗？

Answer 1

如果使用Poly-Markdown+R，评估Rmarkdown文档中所有R sn-ps的命令是M-n v b。

Reference

Answer 2

如果您的 Rmarkdown 中只有 R 源代码，并且希望能够轻松地以交互方式评估它，那么来自 knitr 的 spin 可能会更容易 (see here)。

我更喜欢那个 (spin) 解决方案，因为所有的 markdown/Rmarkdown mumbo-jumbo 都包含在正常的 R cmets 中，所以可以将缓冲区视为常规源代码。但是，以下应该评估多模式缓冲区中的所有 R 代码块（未彻底测试）。

(eval-when-compile
  (require 'polymode-core)  ;; SO format :('
  (defvar pm/chunkmode))
(declare-function pm-map-over-spans "polymode-core")
(declare-function pm-narrow-to-span "polymode-core")

(defun rmd-send-chunk ()
  "Send current R chunk to ess process."
  (interactive)
  (and (eq (oref pm/chunkmode :mode) 'r-mode) ;;'
       (pm-with-narrowed-to-span nil
         (goto-char (point-min))
         (forward-line)
         (ess-eval-region (point) (point-max) nil nil 'R)))) ;;'

(defun rmd-send-buffer (arg)
  "Send all R code blocks in buffer to ess process. With prefix
send regions above point."
  (interactive "P")
  (save-restriction
    (widen)
    (save-excursion
      (pm-map-over-spans
       'rmd-send-chunk (point-min) ;;'
       ;; adjust this point to send prior regions
       (if arg (point) (point-max))))))