连接时间和knitr代码块

Question

我希望能够计时knitr代码块的渲染时间并通过LaTeX输出中的注释记录下来。

我尝试了以下钩子：

 now = Sys.time()
 knit_hooks$set(timeit = function(before) {
     if (before) { now <<- Sys.time() }
     else {
         paste("%", sprintf("Chunk rendering time: %s seconds.\n", round(Sys.time() - now, digits = 3))) 
     }
 })

它确实可以正确地生成具有时间注释的内容，但问题在于它被包装在kframe中，这会导致LaTeX输出中出现不美观的间隔：

\begin{kframe}

% Chunk rendering time: 12.786 seconds.

\end{kframe}

有没有一种方法可以生成未包装的注释？

- god

---

顺便说一句，它被同时发布在 https://github.com/yihui/knitr/issues/1042 上。 - Yihui Xie

你有一个最小化可重现示例来展示这些“丑陋的间隙”吗？ - Thell

Answer 1

试试这个：

local({
  now = Sys.time()
  knit_hooks$set(timeit = function(before) {
    if (before) {
      now <<- Sys.time()
    } else {
      x = round(Sys.time() - now, digits = 3)
      x = sprintf("%% Chunk rendering time: %s seconds.", x)
      paste('\\end{kframe}\n', x, '\n\\begin{kframe}')
    }
  })
})

这是一种hack方法。基本上，您需要从kframe环境中转义LaTeX注释。

- Yihui Xie