##' helper function
##'
##' remove NAs
##' @param x anything really
##' @return part of x
##' @export
##' @author Yi Tang
remove.na <-
function(x) {
x[!(is.na(x))]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.