#' assignTemplate
#'
#' This function extract the tempate (DNA/RNA) from
#' a filename
#'
#' @param x1: \code{filename}
#'
#' @return y1: template
#'
#'
#' @export
#'
assignTemplate <- function(filename){
ifelse(substr(filename,2,2)=='D','DNA','RNA')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.