Zamana bağlı olarak kancalar

Question

Örgü parçaları zamanlamak ve LaTeX çıkışındaki yorumları kullanarak bunları ne kadar sürdüğünü kaydetmek istiyorum.

aşağıdaki kanca denedim:

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

Ve zamanlama ile doğru yorumunu üretmek yapar ama sorun LaTeX çıktısında çirkin aralığı meydana kframe sarılı olmasıdır:

\begin{kframe} 

% Chunk rendering time: 12.786 seconds. 

\end{kframe} 

açılmamış bir yorum üretmek için bir yolu var mı?

Answer 1

bu deneyin:

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

Yine de kesmek. Temel olarak kframe ortamından LaTeX yorumundan kaçarsınız.