Nothing
### Convenience functions to retrieve a reference number, given a label
###
### DJS, 19/1/2012
eqRef <- function(label){
eqLabel <- paste("eq:", label, sep = "")
eqnList <- get("hwriterEquationList", .hwriterGlobalEnv)
eqNum <- which(eqnList == eqLabel)
eqNum
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.