Hook to time knitr chunks

Question

Chciałbym czas podzielić kawałków i nagrać, ile czasu zajęło, aby je za pomocą komentarzy w LaTeX wyjścia.

Próbowałem następujące Hak:

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))) 
    } 
}) 

I robi produkować prawidłowy komentarz z czasu, ale problemem jest to, że zawinięte w kframe co powoduje brzydkie luk w wyjściu LaTeX:

\begin{kframe} 

% Chunk rendering time: 12.786 seconds. 

\end{kframe} 

Czy istnieje sposób na tworzenie nieopakowanych komentarzy?

Answer 1

Spróbuj tego:

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}') 
    } 
    }) 
}) 

Jest to hack, choć. Zasadniczo unikasz komentarza LaTeX ze środowiska kframe.