mbohun
9/22/2014 - 6:15 AM

test a snippet in R / markdown

test a snippet in R / markdown

test.r
content_copyfile_download
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.md
content_copyfile_download
  • Rendered
  • Source

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