钩到时间编织块

Question

我想计时 knitr 块并记录在 LaTeX 输出中使用 cmets 渲染它们所花费的时间。

我尝试了以下钩子：

 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}

有没有办法产生展开的 cmets？

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 评论。