## ----echo=FALSE, results='hide',message=FALSE,warning=FALSE,error=FALSE----
 library(ChemmineOB) 
 library(knitcitations)
 RefManageR:::BibOptions(style="markdown",no.print.fields=c("doi"))
 sapply(read.bibtex(file="references.bib"),record_as_cited)


## ----eval=FALSE, tidy=FALSE----------------------------------------------
## source("http://bioconductor.org/biocLite.R")
## biocLite(c("ChemmineR", "ChemmineOB"))
## library("ChemmineR")
## library("ChemmineOB")


## ----eval=FALSE, tidy=FALSE----------------------------------------------
##  vignette("ChemmineR")


## ----sessionInfo, results='asis'-----------------------------------------
sessionInfo()


## ----biblio, echo=FALSE, results='asis'----------------------------------
     #hack to get rid of latex code returned by certain doi sites (e.g. crosscite.org)
      fix = function(t)  gsub("(\\$\\\\(l|r)brace\\$|\\\\textquotesingle)", "", t)
      suppressWarnings({
         sink(tempfile())
         b<<-bibliography()
         sink(NULL)
      })   
   
      for(i in 1:length(b)){
         b[i]$title = fix(b[i]$title)
         b[i]$author= fix(b[i]$author)
      }
      b