Function

コメント･参照等
FUN = f_run_all_chunks_in_rmd.r 
function (rmd) 
{
    library(knitr)
    tempR <- tempfile(fileext = ".R")
    purl(rmd, output = tempR)
    source(tempR, encoding = "UTF8")
    unlink(tempR)
}