##' Miscellaneous - Retreive grepexpr content
##'
##' Retreive the content from the output of grepexpr() function.
##' @title Retreive grepexpr content
##' @param s Input string.
##' @param g A list that output from grepexpr()
##' @return A string
##' @author Yulong Niu \email{niuylscu@@gmail.com}
##' @keywords internal
##'
getcontent <- function(s, g) {
substring(s, g, g+attr(g,'match.length')-1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.