test a snippet in R / markdown

test.md

blah, blah, blah:

1. aaaa
2. bbbb
3. cccc

tr=plotTree(ax,type="fan",ftype="off") ## plot tree without labels
## add each image
library(jpeg)
for (k in which(nchar(imfiles)>0)) {
    tryCatch({ 
               im=readJPEG(imfiles[k]); 
           rasterImage(im,tr$xx[k]-1/10,tr$yy[k]-1/10,tr$xx[k]+1/10,tr$yy[k]+1/10) },
           error=function(e){invisible(1)})
}

test.r

tr=plotTree(ax,type="fan",ftype="off") ## plot tree without labels
## add each image
library(jpeg)
for (k in which(nchar(imfiles)>0)) {
    tryCatch({ 
               im=readJPEG(imfiles[k]); 
           rasterImage(im,tr$xx[k]-1/10,tr$yy[k]-1/10,tr$xx[k]+1/10,tr$yy[k]+1/10) },
           error=function(e){invisible(1)})
}