withMathJaxR <- function (...) {
path <- paste0(Sys.getenv("RMARKDOWN_MATHJAX_PATH"),"/MathJax.js?config=TeX-AMS-MML_HTMLorMML")
tagList(tags$head(singleton(tags$script(src = path, type = "text/javascript"))),
..., tags$script(HTML("if (window.MathJax) MathJax.Hub.Queue([\"Typeset\", MathJax.Hub]);")))
}